You could download an example to scroll all sheets to the top left cell at

http://www.nickhodge.co.uk/files/vba...heetsToTop.xls

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
HIS


"snsd" wrote in message
...

Bingo!

Here's one way of doing it.

Create a macro called "TopOfScreen". This essentially takes the active
cell and repositions it to the top of the screen. The only difference
here is that you don't have to specify a cell reference as long as
you've selected the cell you want. Then, to rid the challenge of the
left column shifting to the right, use the ActiveCell.Offset command
where the first number represents how many rows to reposition the rows
and the second number represents how many columns to shift the columns.
In this case, I just need to shift the columns one to the left to get
column A back on the screen.

Sub TopOfScreen()
ActiveCell.Select
With ActiveWindow
ScrollColumn = ActiveCell.Column
ScrollRow = ActiveCell.Row
ActiveCell.Offset(0, -1).Select
End With
End Sub

Thanks for getting the ball rolling.

Dave


--
snsd
------------------------------------------------------------------------
snsd's Profile:
http://www.excelforum.com/member.php...o&userid=15910
View this thread: http://www.excelforum.com/showthread...hreadid=273904