Wednesday, 19 August 2020

Shortcut Key to Jump Any Sheet in MS Excel (I challenge! you don't know this)

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

 

No comments:

Popular Posts