Tom,

Try the following:

Sub ActiveCellToTopLeft()
ActiveWindow.ScrollColumn = ActiveCell.Column
ActiveWindow.ScrollRow = ActiveCell.Row
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
www.cpearson.com


"Tom Atkisson" wrote in message
...
Is there a way for the ActiveCell to be at the top left of a worksheet?