jump to specific sheet | VBA & Macros | Excel Forum

Hi rathanak

Your code will cause an error if user press ESC/Cancel or enter a non-existence sheet number.

I have modified your code so give it a try. It will allow you to select by the worksheet's name instead of number.

Sub SelectSheet()
Dim i As Variant
Dim ws As Worksheet
i = Application.InputBox("Enter worksheet name", "Select sheet")

'Cancel was pressed
If i = False Or Trim(i) = "" Then Exit Sub

'Check if sheet exist
On Error Resume Next
Set ws = Sheets(i)
On Error GoTo 0

If ws Is Nothing Then
MsgBox "Worksheet " & i & " not found!"
Else
Sheets(i).Select
MsgBox "Worksheet " & Sheets(i).Name & " selected!"
End If
End Sub