Automatically Scroll To Top Left Cell A1

Private Sub Workbook_Open()
Dim ws As Worksheet
Application. ScreenUpdating = False
For Each ws In Worksheets
ws.Select
ActiveWindow.Zoom = 75
ActiveWindow.ScrollIntoView Left:=0, Top:=0, Width:=100, Height:=100
ws. Cells(1, 1).Select
Next ws
Worksheets("Summary Form").Select
Application.ScreenUpdating = True
End Sub

This works dandy, except for one thing - it will select Cell (1,1) in each sheet, but when you go there, the view is still where it was last time. (Given the nature of the sheet, usually scrolled down to the end.) How do I make sure that the view is at the top of the page? So that A1 is not only selected, but at the upper left corner of the page? Is there a "Scroll to top" type of function?