I have a sheet in which I need to name a whole lot of cells. I'm getting
rsi trying to do them manually and am now trying to write some code to
name the ranges based on a label which is in the column to the right of
the cell to be named. I need to name about 50 cells going down....

I have tried my code on naming one cell first and planning to move on
to the moving down to the next cell once this is working....

However, this doesn't work!


Dim Nme As String
Dim Pos
Dim MySheet As String

Nme = ActiveCell.Offset(0, 1)
Pos = ActiveCell.Address

ActiveWorkbook.Names.Add Nme, Pos
End Sub


Please help.
Thanks in advance


--
skuzapo
------------------------------------------------------------------------
skuzapo's Profile: http://www.excelforum.com/member.php...o&userid=27430
View this thread: http://www.excelforum.com/showthread...hreadid=470655