Worksheets("Sheet1").Range("B2").Value = _ "This text should wrap in a cell." Worksheets("Sheet1").Range("B2").WrapText = True