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)

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" <(E-Mail Removed)> wrote in message
news:u$(E-Mail Removed)...
> 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)
>
>
>

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


"Goofy" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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" <(E-Mail Removed)> wrote in message
> news:u$(E-Mail Removed)...
>> 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)
>>
>>
>>
>
>

Simpler


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

--
HTH

Bob Phillips

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

"Goofy" <(E-Mail Removed)> wrote in message
news:uye%(E-Mail Removed)...
> ItsOK, I worked it out, there should have been an equal sign before the
> reference
>
>
> "Goofy" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
> > 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" <(E-Mail Removed)> wrote in message
> > news:u$(E-Mail Removed)...
> >> 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)
> >>
> >>
> >>
> >
> >
>
>

Thanks bob


"Bob Phillips" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Simpler
>
>
> worksheets("Sheet1").Range("$A$1:$C$3").Name = "myRange"
>
> --
> HTH
>
> Bob Phillips
>
> (replace somewhere in email address with gmail if mailing direct)
>
> "Goofy" <(E-Mail Removed)> wrote in message
> news:uye%(E-Mail Removed)...
>> ItsOK, I worked it out, there should have been an equal sign before the
>> reference
>>
>>
>> "Goofy" <(E-Mail Removed)> wrote in message
>> news:(E-Mail Removed)...
>> > 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" <(E-Mail Removed)> wrote in message
>> > news:u$(E-Mail Removed)...
>> >> 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)
>> >>
>> >>
>> >>
>> >
>> >
>>
>>
>
>