code for selecting cell A1 on activate worksheet.

Dear All - good evening. Does anyone have any code which will do the above? I have a workbook with around 30 worksheets (i know i know)!! its what the user wanted............! I would like that whenever someone enters a sheet that cell a1 is selected or that the sheet returns to the home position upon activation.

so far ive been messing around with the below, dont laugh!

ActiveSheet.Range("A1").Select

Sub Macro1()
'
' Macro1 Macro
'

'
Sheets("Communications").Select
Range("A1").Select
End Sub

Sub MakeActive()
Worksheets("Website Usage1").Activate
Range("A1").Select
Range("A1").Activate
End Sub

Private Sub Workbook_Open()
Worksheets("Home Page").Activate
End Sub

Private Sub WorkSheet_Open()
Range("A1").Activate
End Sub

Blake 7,

Please wrap your code in code tags
As to your query, I think you're looking for something like this in the ThisWorkbook event module:

Please Login or Register  to view this content.

this suffices:

Please Login or Register  to view this content.