vba имя листа

Ответ от Алексей Матевосов (AlexM)[гуру]
Когда стопиццот листов, то переход от одного листа к другому можно сделать так. Кликнуть правой кнопкой мышки по любой стрелочке листания листов, в нижнем левом углу. Если листов очень много, то в открывшемся меню можно выбрать все листы. Результат увидите.
Можно сделать и поиск макросом VBA.
Код макроса
Sub List_Search()
strInput = InputBox("Введите имя листа книги", "Поиск листов книги")
ok = 0
If strInput <> "" Then
For i = 1 To Worksheets.Count
If Worksheets(i).Name = strInput Then
Sheets(strInput).Select
ok = 1
End If
Next i
If ok = 0 Then MsgBox "Листа с таким именем нет"
End If
End Sub
Алексей Матевосов (AlexM)
Просветленный
(25462)
Вот макрос покороче. Без цикла и переменной ОК
код
Sub List_Search()
strInput = InputBox("Введите имя листа книги", "Поиск листов книги")
If strInput <> "" Then
On Error GoTo No_seet
Worksheets(strInput).Select
Exit Sub
No_seet:
MsgBox "Листа с таким именем нет"
End If
End Sub