Go To Cell A1 automatically when opening a sheet

I have a workbook with 13 sheets, I would like each sheet when opened to have cell A1 selected, and when closing remember the sheet that was active and open to that sheet next time the workbook is used. Any help is appreciated, thanks in advance!

So I tried this....
Private Sub Workbook_Open()
Dim WSheet As Worksheet

For Each WSheet In Worksheets
WSheet.Activate
Range("A1").Select
Next
End Sub

It does work however, it goes to the last sheet in the workbook I would like the workbook when opened to go to the last active sheet cell A1.

Does this work for you?

Please Login or Register  to view this content.

Works like a champ !! Thank You so much !