Help: Macro Copy Active Cell to Range Name, loop
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
|