Unwrap text

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

'

Sub Unwrap_Text()
'unwrap text in cell B2 in worksheet named Sheet1

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

End Sub