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