When entering sheet I want to goto A1 if it's not already in A1

[ColinCoady]

Cant't get this to work.
Looking for code to automatically go to cell A1 (actually range A1:K1 because it's a merged cell) when I click on one particular sheet tab at any time and every time.

Hope someone can help
This is what I have that works only when I debug it step by step.

Sub Move2A1()
If Sheets("Docs").Select = True Then
    Cells(1, 1).Select
    End If
End Sub

 

[mumps]

Place this macro in the code module for ThisWorkbook. Do the following: Hold down the ALT key and press the F11 key. This will open the Visual Basic Editor. In the left hand pane, double click on "ThisWorkbook". Copy/paste the macro into the empty window that opens up. Close the window to return to your sheet. Select the sheet.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name = "Docs" Then
        Sh.Range("A1").Select
    End If
End Sub

 

[ColinCoady]

Works perfect - Thank you mumps
-Colin

 

[mumps]

You are very welcome.