Hi

Do you mean this(example for the A column)

Sub test()
Dim rng As Range
Set rng = Sheets("sheet1").Range("A1:A" & Sheets(1).Range("A" & Rows.Count).End(xlUp).Row)
MsgBox rng.Address
End Sub



--
Regards Ron de Bruin
http://www.rondebruin.nl



"Michael Smith" wrote in message ...
Having trouble naming a range...

Dim rng as Range
Set Rng.....

I need rng to be the length of my sheet...trying to name it and its
failing on me.


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!