try this code
Code
-------------------
Sub NameARange()
Range("AD2:AD" & Range("AD2").End(xlDown).Row).Name = "MyName"
End Su
-------------------
Hope this helps,
Wil
-----------------------------------------------
~~ Message posted from
http://www.ExcelTip.com
~~View and post usenet messages directly from
http://www.ExcelForum.com
~~Now Available: Financial Statements.xls, a step by step guide to creating financial statements