Go to another Sheet Macro

OGDuarte · May 23rd 2021

I am working with a workbook that has 25 sheets(Tabs). I would like to jump to another sheet with the macro below, but it doesn't not work, I get Run Time error 9 on Thisworkb..... I couldn't find help online.

Code

Sub_Jump_to_another_sheet


'Keyboard Shortcut: Ctrl k


Dim Page As String


Page = InputBox("Enter Sheet Name")


ThisWorkbook.Sheets("Page").Activate


'I also used: Application.Goto Reference:="'Page'" but it won't work either...


End Sub

Display More

Fluff13 · May 23rd 2021

How about

Code

Sub OGDuarte()
   Dim Page As String
   
   Page = InputBox("Enter Sheet Name")
   If Page = "" Then Exit Sub
   If Evaluate("isref('" & Page & "'!A1)") Then
      Sheets(Page).Activate
   Else
      MsgBox "Sheet " & Page & " does not exists"
   End If
End Sub

Display More

OGDuarte · May 23rd 2021

Thank you very, very much! Works fine!

Fluff13 · May 23rd 2021

You're welcome & thanks for the feedback.

**royUK** · May 24th 2021

OGDuarte

Welcome to the Forum. Please read the Forum Rules to understand how the Forum works and why I have added Code Tags to your post

All VBA code posted in the forum must be wrapped in code tags, which you omitted, including single-line code snippets.Be sure to use them in future posts.

How to use code tags

Just highlight all of the code and press the <> in the post menu above button to add the code tags.

Thanks.

Go to another Sheet Macro

royUK Mar 20th 2022

Participate now!

Share