ActiveCell to top left cell of a sheet

D

Don Guillett

Try one of these

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

Chip Pearson

Tom,

Try the following:

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

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

ActiveCell on inactive sheet 8
determine whether the activecell is on the top or bottom 3
Formatting templates 7
Populating a range of empty cells with usernames 4
My code need to go on a diet 10
Is Range Offset property needed 1
Show Activecell Date in MsgBox 3
Select range from ActiveCell do to Lastcell 6

Top