' On the Home tab, in the Alignment group, click Wrap Text (Alt + H + W) ' In VBA: Worksheets("Sheet1").Range("B2").Value = "This text should wrap in a cell." Worksheets("Sheet1").Range("B2").WrapText = True