In diesem Beispiel wird ein Text in Zelle B2 in Sheet1 eingetragen und so formatiert, dass er umbrochen wird.
Worksheets("Sheet1").Range("B2").Value = _ "This text should wrap in a cell." Worksheets("Sheet1").Range("B2").WrapText = True