With Workbook.Sheets[1].Range['A1', 'F2'].Font do begin Name := 'Arial'; Size := 12; Bold := True; end;