Move to a different sheet based on cell "A3" of current sheet

I would like to change the following code so it works on every sheet in the workbook.  I know I can copy and paste it to each sheet, but I thought there might be a simpler way.

Thanks,
Joan
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
Application.ScreenUpdating = False

    If Target.Address = Range("A3").Address Then
        Application.GoTo Worksheets(Range("AC2").Value).Range("A3")
        
    End If
        
Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub

Open in new window

jmkbrownAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
jppintoConnect With a Mentor Commented:
You can try putting this code on the Workbook Sheet_Change event:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

     ' your code here...

End Sub
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.