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