I am running the following code that I got from this newsgroup,

......
Sub NameMe()

Dim strName As String
Dim strAddr As String


strName = ActiveCell.Value
strAddr = ActiveCell.Address(, , xlR1C1)


ActiveWorkbook.Names.Add _
Name:=strName, _
RefersToR1C1:="=Sheet1!" & strAddr

End Sub
.....

For some reason the Names.Add function will not accept the string. It
will accept strings which I manually type, eg. "typedname", but not
strings set to the ActiveCell.Value.

Is there some way to work around this? Can I add quotes to the string
somehow? Am I barking up the wrong tree?

Any help is appreciated,
Petur G