With Workbook.Sheets[1].Range['A1', 'F10'] do begin Columns[2].Font.Bold := True; end;
With Workbook.Sheets[1].Range['A1', 'F10'] do begin Columns[3].Value := Columns[2].Value; end;
MessageDlg('The selection contains ' +
inttostr(Workbook.Worksheets[1].Selection.Columns.Count) + ' columns.',
mtInformation, [mbOk], 0);