Prev: Help with VBA and SUM
Next: Tracking an email when sent directly from Excel
From: ordnance1 on 18 May 2010 19:14
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

"Mike" wrote:

> Sub scrollToTheTopOfSheet()
> Dim ws As Worksheet
> For Each ws In ThisWorkbook.Worksheets
> ws.Select
> ActiveWindow.ScrollRow = 1
> Next
> End Sub
>
> "ordnance1" wrote:
>
> > 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
From: Jacob Skaria on 19 May 2010 01:08
Try

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


--
Jacob (MVP - Excel)


"ordnance1" wrote:

> 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
>
> "Mike" wrote:
>
> > Sub scrollToTheTopOfSheet()
> > Dim ws As Worksheet
> > For Each ws In ThisWorkbook.Worksheets
> > ws.Select
> > ActiveWindow.ScrollRow = 1
> > Next
> > End Sub
> >
> > "ordnance1" wrote:
> >
> > > 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
First  |  Prev  | 
Pages: 1 2
Prev: Help with VBA and SUM
Next: Tracking an email when sent directly from Excel