Bingo!

Here's one way of doing it.

Create a macro called "TopOfScreen". This essentially takes the activ
cell and repositions it to the top of the screen. The only differenc
here is that you don't have to specify a cell reference as long a
you've selected the cell you want. Then, to rid the challenge of th
left column shifting to the right, use the ActiveCell.Offset comman
where the first number represents how many rows to reposition the row
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 ge
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.

Dav

--
sns
-----------------------------------------------------------------------
snsd's Profile: http://www.excelforum.com/member.php...fo&userid=1591
View this thread: http://www.excelforum.com/showthread.php?threadid=27390