MessageDlg(inttostr(Workbook.Sheets[1].Hyperlinks.Count) + ' , mtInformation, [mbOk], on Worksheet one.',
mtInformation, [mbOk], 0);
MessageDlg(inttostr(Workbook.Sheets[1].Range['A1','D10'].Hyperlinks.Count) + ' , mtInformation, [mbOk], on A1:D10.',
mtInformation, [mbOk], 0);