Have to add the range in order for it to appear in the range names

*accept " type a name to " to orange
clear

o = GETOBJECT(,'excel.application')
orange = "asdf"
o.Names.Add(orange, "=sheet1!R1C1:R3C3") &&& add the range --------->>
ThisNewName = orange
orange = o.Range("a1")
WAIT WINDOW orange.value

FOR i = 1 TO o.Names.Count
thisHere = thisNewName
thisOne = ALLTRIM(LOWER(o.Names[i].name ))

IF thisHere$thisOne
? o.Names[i].name
endif
ENDFOR

WAIT WINDOW orange.value