ActiveCell to top left cell of a sheet
 

Is there a way for the ActiveCell to be at the top left of a worksheet?

ActiveCell to top left cell of a sheet
 

Tom,

Range("A1").Select
works for me.

-----Original Message-----
Is there a way for the ActiveCell to be at the top left
of a worksheet?


.

ActiveCell to top left cell of a sheet
 

Try one of these

Sub CtrlHome()
'ActiveWindow.VisibleRange.Resize(1, 1).Select
SendKeys "^{home}"
End Sub

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

ActiveCell to top left cell of a sheet
 

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?