With Workbook.Sheets[1] do begin
  cnt := Names.Count;
  if cnt > 0 then
     for i := cnt downto 1 do Names[i].Delete;
end;