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