How do I position the cursor to cell A1? I tried:

Sub PositionCursorToUpperLeft()
Dim ws As Worksheet
application.ScreenUpdating = False
For Each ws In Worksheets
ws.Activate
ws.Range("A1").Select
Next ws
' --- Go back to the first sheet.
Worksheets("Select").Activate
application.ScreenUpdating = True
End Sub

This almost works, but fails on the last sheet.

"A1" is selected, but the worksheet window is positioned with "A532" at the
top of the window. What I'm trying to get to is to have the worksheet window
view begin at "A1".

Thanks in advance for your assistance.