Workbook.Sheets[1].Hyperlinks[1].ScreenTip := 'First hyperlink on worksheet';
Workbook.Sheets[1].Hyperlinks.Delete;