Return to a specific range or cell upon exit

[jchapman]

I am looking for a simple code that returns to a specific cell or range when you leave an active worksheet. As I have large worksheets that someone may navigate and end up in say cell PT1354. What I want is if someone returns to this worksheet, it will open in cell A1, or a named range, where data entry is required. I've been searching, but can't find it. Any ideas?

 

[mikerickson]

Try putting this in the ThisWorkbook code module

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    With Sh
        Application.Goto Reference:=.Cells(1, 1), Scroll:=True
    End With
End Sub

 

[jchapman]

I probably didn't enter it correctly, but it doesn't work. I copied that into the module (nothing), then I tried to copy it into the object (nothing). Am I misunderstanding where to copy the code, or did I not explain it well? I only want it to apply to a specific worksheet in a workbook, so if you go to a different worksheet and then return to that worksheet, you start back at A1.

 

[jchapman]

Got it. Thank you!