Selecting Sheet via Input Box or other way

[JKwan]

well here is a method:

Private Sub ListBox1_Click()
Dim WS As Worksheet
With Me.ListBox1
   Set WS = Worksheets(.List(.ListIndex))
   MsgBox "You selected - " & WS.Name
End With
WS.Select
Set WS = Nothing
End Sub

Private Sub UserForm_Initialize()
Dim WS As Worksheet
Dim WB As Workbook
Set WB = ThisWorkbook
For Each WS In WB.Worksheets
   Me.ListBox1.AddItem WS.Name
   Next WS
   Set WS = Nothing
   Set WB = Nothing
End Sub

Create a form and add a Listbox to it and paste the code to it.