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