Creating NamedRanges with VBA

[Goofy]

Im having difficulty in creating a named range programmatically and getting
it to appear in the goto box. The following code DOES create a named range,
but the refference has quotes around it and therefore does not appear in the
goto box.

Does anyone know what I am doing wrong ?

Dim mr As String
mr = "Sheet1!myRange3"
'Create Range
Call ThisWorkbook.Names.Add(Name:=mr, RefersTo:="Sheet1!$A$1:$C$3",
Visible:=True)

 

[Goofy]

Sorry should have read


Dim mr As String
mr = "Sheet1!$A$1:$C$3",
'Create Range
Call ThisWorkbook.Names.Add(Name:="myRange", RefersTo:=mr,
Visible:=True)

 

[Goofy]

ItsOK, I worked it out, there should have been an equal sign before the
reference

 

[Bob Phillips]

Simpler


worksheets("Sheet1").Range("$A$1:$C$3").Name = "myRange"

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

 

[Goofy]

Thanks bob

Simpler


worksheets("Sheet1").Range("$A$1:$C$3").Name = "myRange"

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)