Coloque isso no módulo de planilha da planilha em que seu 1234LOCK
é colocado ao digitalizar um código de barras.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
Dim lastRow As Long
If Range("C" & Rows.Count).End(xlUp).Row = Range("D" & Rows.Count).End(xlUp).Row Then
lastRow = Range("C" & Rows.Count).End(xlUp).Row
ElseIf Range("C" & Rows.Count).End(xlUp).Row < Range("D" & Rows.Count).End(xlUp).Row Then
lastRow = Range("D" & Rows.Count).End(xlUp).Row + 1
End If
If Target.Address = "$C$" & lastRow Then
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = Range("C" & lastRow).Value Then
ws.Activate
End If
Next ws
End If
End Sub
Estou assumindo que sua varredura irá acionar uma mudança na planilha, e o nome entra em A1
.