Excel Macro to Toggle Wrap Text

This Excel macro allows changing cells in selection based on the first cell in a selection:

If Selection.Cells(1, 1).WrapText = True Then
    Selection.WrapText = False
Else
    Selection.WrapText = True
End If

This is useful in Excel 2003 and bellow.  Starting from Excel 2007, there is a button to perform this task on a Task Ribbon.

Tags: Macro, Text, Toggle, Wrap