Another way just for fun

activecell.resize(rows.count-activecell.row+1,1).entirerow.select

You can also do it with Ctrl-Shift-Down-Arrow then Right-Arrow.

But as Don said, why?

--

HTH

RP

"Don Guillett" wrote in message
...
Why would you want to do this?

Sub selectall()
Range(Cells(ActiveCell.Row, "a"), Cells(65536, "a")).EntireRow.Select
End Sub


--
Don Guillett
SalesAid Software

"Jason" wrote in message
...
I'm a beginner, and need some code that will do the following. Suppose
I
have cell C10 selected. I want the macro to look at the current
selection,
and then highlight the entire rows from the current selection down to
the
last row (meaning 65,000+). Thanks