This is how I altered your code (it lives in my Auto_Open) but it does not
cycle through all the work sheets, but does work on the currently active
sheet.

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ActiveWindow.ScrollRow = 1
Range("A3").Select
ActiveWindow.Zoom = 100
Next

"Mike" wrote:

Sub scrollToTheTopOfSheet()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Select
ActiveWindow.ScrollRow = 1
Next
End Sub

"ordnance1" wrote:

I run the code below to ensure that all worksheets are set to a 100% zoom and
that cell A3 is selected on all worksheets. Is ther also a way to ensure that
all worksheets are scrolled all of the way to the top?

Sheets(Array("January", "February", "March", "April", "May", "June", "July",
"August", _
"September", "October", "November", "December")).Select
Sheets("January").Activate
Range("A3").Select
ActiveWindow.Zoom = 100
Sheets("January").Select