MessageDlg('The selection contains ' + inttostr(Workbook.Worksheets[1].Selection.Count) + ' cells.', mtInformation, [mbOk], 0);