Set group of wksheets to top of page
 

Hi,

Is there a way to set a group of worksheets to the top of the page without
activating each individual worksheet. Here is what I have but it doesn't
work unless I activate each sheet.

FirstIndex = Firstpg.Index
LastIndex = Lastpg.Index

Set ws = Nothing
For Each ws In wbkCopyTo.Worksheets
'set worksheet to top of page
If ws.Index FirstIndex Then
If ws.Index < LastIndex Then
ws.Activate
Application.GoTo Reference:="R4C7"
ActiveWindow.SmallScroll Up:=3
ActiveWindow.ScrollColumn = 1
End If
End If
Next

--
Thanks for your help.
Karen53

Set group of wksheets to top of page
 

Hi Karen,

I do not believe that a selection can be made
on an inactive sheet; therefore, in this case,
selection of the sheets is necessary.



---
Regards.
Norman


"Karen53" wrote in message
...
Hi,

Is there a way to set a group of worksheets to the top of the page without
activating each individual worksheet. Here is what I have but it doesn't
work unless I activate each sheet.

FirstIndex = Firstpg.Index
LastIndex = Lastpg.Index

Set ws = Nothing
For Each ws In wbkCopyTo.Worksheets
'set worksheet to top of page
If ws.Index FirstIndex Then
If ws.Index < LastIndex Then
ws.Activate
Application.GoTo Reference:="R4C7"
ActiveWindow.SmallScroll Up:=3
ActiveWindow.ScrollColumn = 1
End If
End If
Next

--
Thanks for your help.
Karen53