Sub selectSheet()
Dim i
i = Application.InputBox("Insert sheet number", "Select Sheet", Type:=1)
Worksheets(i).Select
End Sub