转到特定表格

Question

我需要制作一个框，您可以在其中键入您想要去的工作表编号，然后将它带到那里。我想要一个按钮，但由于我有大约60张纸，所以没有多大意义。

Answer 1

运行这个小宏：

Sub GoThere()
Dim N As Long
   On Error Resume Next
      N = Application.InputBox(Prompt:="Enter sheet number", Type:=1)
      Sheets(N).Select
   On Error GoTo 0
End Sub