Hi! after long time I back with amazing MS Excel Shortcut key, in this article I will shows you how to jump any excel sheet by using easy keyboard shortcut key, as we knew there is no straight forward key in excel to jump into sheets; so we have to create a shortcut key to save time and energy while working in Microsoft Excel… please watch below video to know how to activate this shortcut key….
Code:
Sub Enter_Sheet_Number()
Dim sheetnum As Integer
On Error GoTo ErrorMessage
sheetnum = InputBox("Enter
Sheet No")
If sheetnum > Sheets.Count
Then
MsgBox "Sheet Not
Aviable"
Else
Sheets(sheetnum).Activate
End If
ErrorMessage:
If Err.Number = 13 Then
Err.Clear
MsgBox "Invlaid Sheet
No"
End If
End Sub
Sub Enter_Sheet_Name()
Dim sheetname As String
sheetname = InputBox("Enter
Sheet Name")
On Error GoTo ErrorMessage
Sheets(sheetname).Activate
ErrorMessage:
If Err.Number = 9 Then
Err.Clear
MsgBox "Invlaid Sheet
Name"
End If
End Sub
Watch Video Tutorial… Please like, share & subscribe