then

begin

Workbook.Worksheets[

].Names begin

begin

With Workbook.Worksheets[1].Names do begin
   if Count > 0 then begin
      Item[1].Name := 'MyNewName';
   end;
end;