Creating a common starting point

[ordnance1]

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

 

[Rick Rothstein]

Try this...

ActiveWindow.ScrollRow = 1

 

[Mike]

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

 

[Mike H]

Hi,

Shts =
"January,February,March,April,May,June,July,August,September,October,November,December"
v = Split(Shts, ",")
For x = 0 To UBound(v)
Sheets(v(x)).Select
Application.Goto Sheets(v(x)).Range("A3")
ActiveWindow.Zoom = 100
Next
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.

 

[Mike]

this will also work for selecting range
Sub scrollToTheTopOfSheet()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
With ws
.Activate
.Range("A3").Activate
End With
With ActiveWindow
.View = xlNormalView
.ScrollRow = 1
.Zoom = 100
End With
Next
Application.ScreenUpdating = True
End Sub

 

[ordnance1]

This is how I altered your code (it lives in my Autpen) 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

 

[Jacob Skaria]

Try

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