ActiveCell to top left cell of a sheet

[Tom Atkisson]

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

 

[Jill]

Tom,

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

 

[Don Guillett]

Try one of these

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

 

[Chip Pearson]

Tom,

Try the following:

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