Moving entire workbooks scroll bars
 

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?

Moving entire workbooks scroll bars
 

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?