RefersTo: WideString;

With

'MyName'

With Workbook.Names do begin
   if Assigned(Item['MyName']) then
      Item['MyName'].RefersTo := '=Sheet1!$A$1';
end;