excel force wrap text in cell code example

Example: how to wrap text in excel

' 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