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)