Hi,

How do you iterate through the sheets in a weekbook and set each sheet
to the ActiveWindow?

(I need to assign the scrollrow for each sheet.)

Thanks.

For Each Sheet In Sheets
MsgBox Sheet.Name
' your code here
Next 'Sheet

Regards

Trevor


wrote in message
oups.com...
Hi,

How do you iterate through the sheets in a weekbook and set each sheet
to the ActiveWindow?

(I need to assign the scrollrow for each sheet.)

Thanks.

Hello There, Try this code in the Workbook_Open event, Should fix you
right up...

enjoy, Rick


Private Sub Workbook_Open()
Dim wsk As Worksheet

Application.ScreenUpdating = False

For Each wsk In Worksheets
If wsk.Name < "Test " Then
wsk.Select
wsk.ScrollArea = "a1:n31" '' << Change Range here
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With
End If
Next wsk


End Sub






wrote in message
oups.com...
Hi,

How do you iterate through the sheets in a weekbook and set each sheet
to the ActiveWindow?

(I need to assign the scrollrow for each sheet.)

Thanks.