Поместите это в модуль рабочего листа, который вы 1234LOCK
вставляете при сканировании штрих-кода.
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
Я предполагаю, что ваше сканирование вызовет изменение листа, и имя входит в A1
.