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