A Macro Which Toggle A Boolean Property

What does this macro do?

Formula:

Sub Toggle()



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



    End If



End Sub