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