Prev: Help with VBA and SUM
Next: Tracking an email when sent directly from Excel
From: ordnance1 on 18 May 2010 18:34
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: Rick Rothstein on 18 May 2010 18:45
Try this...

ActiveWindow.ScrollRow = 1

--
Rick (MVP - Excel)



"ordnance1" <ordnance1(a)discussions.microsoft.com> wrote in message
news:2B7C7C40-72CD-49DD-A0E1-8296F24E262C(a)microsoft.com...
> 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: Mike on 18 May 2010 18:54
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: Mike H on 18 May 2010 18:59
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.


"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: Mike on 18 May 2010 19:06
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" 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
 |  Next  |  Last
Pages: 1 2
Prev: Help with VBA and SUM
Next: Tracking an email when sent directly from Excel