Excel VisualBasic Script

Sub ToggleWrapText()
    If TypeName(Selection) = "Range" Then 
      Selection.WrapText = Not ActiveCell.WrapText
    End If
End Sub