Wrap text

Parameters

Macro Title:
Worksheet name:
Wrap text cells:
Wrap Text Option:
Comment:

'

Sub Wrap_Text()
'wrap text in cell B2 in worksheet named Sheet1

Worksheets("Sheet1").Range("B2").WrapText = True

End Sub