Creating a common starting point

  • Thread starter Thread starter ordnance1
  • Start date Start date
O

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
 
Sub scrollToTheTopOfSheet()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Select
ActiveWindow.ScrollRow = 1
Next
End Sub
 
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.
 
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
 
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
 
Try

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