With Workbook.Sheets[1].Range['A1','A5'] do begin Merge; Value := 'Text'; Orientation := 90; end; With Workbook.Sheets[1].Range['B1','B5'] do begin Merge; Value := 'Vertical'; Orientation := xlVertical; end;