Trying to use a variable to name a single cell VBA

[sparky_n_ames]

I am using this string of code below to name a cell by converting variable Cmt1(Long) into a string variable cellname. I cannot get the line of code below to run. It works fine if I assign a string in "" marks to the variable. I need the variable cellname to match the contents of Variable Cmt1, which in theory it does as written. This is all part of a much longer string of code which runs just fine. I am just an entry level VBA user. I understand objects, properties, variables, etc. I just can't quite understand why this won't work. Any help is appreciated. Thanks.

Dim Cmt1 As Long
Dim celln As Range
Dim cellname As String


cellname = CStr(Cmt1)
'cellname = "FixedStringName" <--This works, but not the line above.
ActiveWorkbook.Names.Add Name:=cellname, RefersTo:=ActiveCell

 

[Cool blue]

1. Names that do not start with and underscore or a letter (including names that include only numbers) are not allowed.
2. What is the value of Cmt1 when you convert it to a string and load it into cellname?

 

[sparky_n_ames]

Cool Blue-

Thanks. I had forgotten that you can't use numbers to begin a named range.
Cmt1 equaled a number which increased by +1 each cycle of the loop. I added

cellname = "Comment #" & CStr(Cmt1)

This simple correction made it work.

Thanks for your help.