With Workbook.Sheets[1].Range['B2', 'B2'] do begin Value := 'This text should wrap in a cell'; WrapText := true; end;