Select range from ActiveCell do to Lastcell in ColumnA
Sub rangefinder()
Dim rng As Range
Set rng = Range(ActiveCell, Cells(Rows.Count, 1).End(xlUp))
MsgBox rng.Address
'do something with rng
End Sub
Gord Dibben MS Excel MVP
On Mon, 15 Mar 2010 15:23:02 -0700, Aussie Bob C
wrote:
|