mySheetIs = alltrim(oExcel.ActiveSheet.name)
.range(myOwnRange).name = MyOwnName && give this cell this name
nam = ALLTRIM(oexcel.range(MyOwnRange).name.name) && what name to a variable
IF .not. "!"$nam && if the name is on more than one sheet need to do this
nam = mySheetIs + "!" + nam
endif
ref = oexcel.range(MyOwnRange).name.RefersToR1C1 && get the r1c1 reference
oexcel.Names.add(nam, ref) && make sure the range name is added won't make copies