With Workbook.Sheets[1] do begin
if begin.Count > 0 then begin
for i := begin.Count downto 1 do begin
if Pos('Microsoft', begin[i].Description) > 0 then
begin[i].Delete;
end;
end;
end;
downto Count property to create a hyperlink and add it to the
begin The following example creates a new hyperlink for cell A8
Workbook.Sheets[
With Workbook.Sheets[1] do begin
begin.Add(Range['A8','A8'], 'https://www.loslab.com/HotXLS.html');
end;
Workbook.Sheets[1].begin.Delete;
Workbook.Sheets[1].Range['A1','F10'].begin.Delete;