How can I synch 12 monthly sheets at the same level ... Meaning if I
want sheet 1 to be at a level of cell A30, I would like all 12 sheet
to be at the same level as I go from one to the other.
Thanks

TeeSee presented the following explanation :
How can I synch 12 monthly sheets at the same level ... Meaning if I
want sheet 1 to be at a level of cell A30, I would like all 12 sheet
to be at the same level as I go from one to the other.
Thanks

Group the sheets and select A30 on any 1 sheet.

To group sheets:
Non-contiguous
Hold down Ctrl and click the tab of each sheet you want in the group.

Contiguous
Select the 1st sheet and hold down Shift and click the tab of the
last
sheet you want in the group. (All sheet between 1st/last will be
selected)

To ungroup sheets:
Right-click the tab of any sheet in the group and select
"Ungroup Sheets".

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion

On 3 Dec, 23:33, GS wrote:
TeeSee presented the following explanation :

How can I synch 12 monthly sheets at the same level ... Meaning if I
want sheet 1 to be at a level of cell A30, *I would like all 12 sheet
to be at the same level as I go from one to the other.
Thanks

Group the sheets and select A30 on any 1 sheet.

To group sheets:
* Non-contiguous
* Hold down Ctrl and click the tab of each sheet you want in the group.

* Contiguous
* Select the 1st sheet and hold down Shift and click the tab of the
last
* sheet you want in the group. (All sheet between 1st/last will be
* selected)

To ungroup sheets:
* Right-click the tab of any sheet in the group and select
* "Ungroup Sheets".

--
Garry

Free usenet access athttp://www.eternal-september.org
Classic VB Users Regroup!
* comp.lang.basic.visual.misc
* microsoft.public.vb.general.discussion

Garry Thanks for your response. You are of course quite correct and I
had tried that but didn't quite "get it" that the A30 cell was off
screen. The question I should have asked is ....
Is it possible to get the A30 cell at the top left corner of my
screen? The twelve individual monthly sheets are identical in layout
and I would like to be able to view the same data on each sheet as I
move from month to month.

Many thanks again.

Try using ScrollRow and ScrollColumn...

Dim wks As Worksheet
For Each wks In ActiveWindow.SelectedSheets
wks.Activate:
With ActiveWindow
ScrollRow = 200: ScrollColumn = 1
End With 'ActiveWindow
Application.GoTo Range("A30")
Next 'wks

Note that if row 30 is visible there will be no shift, so scroll deep
and bounce back. (This also works with FreezePanes)

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion

Rather than scrolling and bouncing back, this slight modification worked well for me:

Sub ScrollSheets()
Dim wks As Worksheet

For Each wks In ActiveWindow.SelectedSheets
wks.Activate:
Application.Goto Range("A30"), True
Next 'wks

End Sub

It happens that Ben McClave formulated :
Rather than scrolling and bouncing back, this slight modification worked well
for me:

Sub ScrollSheets()
Dim wks As Worksheet

For Each wks In ActiveWindow.SelectedSheets
wks.Activate:
Application.Goto Range("A30"), True
Next 'wks

End Sub

Ben,
Yes, I forgot about the Scroll arg for Goto(). Much better approach!
Thanks...

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion