Before you go too far, how about sharing what's in Activecell.value?

Maybe it isn't a valid name????

No spaces. No names that look like addresses. No invalid characters...

Debug.print "***" & activecell.value & "***"

may help pinpoint the problem.

" wrote:

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

--

Dave Peterson