This is a window property and so you will have to try an alternative...as
below...OR Select the cell A1 in all the sheets.

Sub Macro3()
Dim ws As Worksheet
Application.ScreenUpdating = False
Set ws = ActiveSheet
For intTemp = 1 To Sheets.Count
Sheets(intTemp).Activate
ActiveWindow.ScrollRow = 1
Next
ws.Activate
Application.ScreenUpdating = True
End Sub


If this post helps click Yes
---------------
Jacob Skaria


"Nightshade" wrote:

I am trying to move all the scroll bars, in my entire workbook, to the top.
When I try the normal code for moving my scroll bar: "ActiveWindow.ScrollRow
= 1" it only moves the bar on one of my tabs. Does anyone know how to code
it so it moves all of the scroll bars at once?