Ошибка времени выполнения 9 - индекс вне диапазона

Question

Я использую следующий код для возврата на первую страницу рабочей книги.

Sub OpenMenu()
   ' Keyboard Shortcut: Ctrl+m

   ActiveWorkbook.Worksheets("Macros").Activate
   ActiveWorkbook.Worksheets("Macros").Cells(1, 1).Select
End Sub

Answer 1

Вместо того, чтобы называть его по имени, так как вы хотите первый, вы можете назвать его по индексу:

Sub OpenMenu()
   ' Keyboard Shortcut: Ctrl+m

   ActiveWorkbook.Worksheets(1).Activate
   ActiveWorkbook.Worksheets(1).Cells(1, 1).Select
End Sub