To me, this appears to be more straightforward:
'TO NAME A VARIABLE-LENGTH RANGE STARTING FROM A FIXED CELL -- F1)
(ACTIVE CELL IS MOOT)
Set TopCell = Range("F1")
Range(TopCell, TopCell.End(xlDown)).Name = "TEST1"
'TO NAME A SINGLE CELL (the ACTIVE CELL)
Range("G1").Select
Set TopCell = ActiveCell
Range(TopCell, TopCell).Name = "TEST2"
Chuckles12
--
Chuckles12
-----------------------------------------------------------------------
Chuckles123's Profile:
http://www.excelforum.com/member.php...fo&userid=1494
View this thread:
http://www.excelforum.com/showthread.php?threadid=26581