シートが多すぎて、移動するためのマクロ（シートのインデックス番号を入力）

Sub 該当シートを選択()

Dim i As Variant

i = Application.InputBox(prompt:="数字を入力してください", Type:=1)
If i = False Then
Exit Sub

Else


ThisWorkbook.Sheets(i).Activate

End If

End Sub