Dim rng as Range, i as Long
' set i to the column you need
i = 3
set rng = Range(cells(1,i),cells(rows.count,i).End(xlup))
rng.Name = "MyName"

msgbox Range("MyName").Address(external:=True)
msgbox Thisworkbook.Names("MyName") _
.RefersToRange.Address(external:=True)
--
Regards,
Tom Ogilvy

"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!