运行时错误9-下标超出范围

Question

I am using the following code to return to the first page in the workbook.

Sub OpenMenu()
   ' Keyboard Shortcut: Ctrl+m

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

Answer 1

Rather than calling it by name, since you want teh first one you can call it by it's index:

Sub OpenMenu()
   ' Keyboard Shortcut: Ctrl+m

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