Interesting. It seems to work if I get rid of the WITH statement and change the order of instructions:
Code:
Sub Button1_Click()
    Set MyColumns = Worksheets("My Worksheet Name").Columns("D:E")
        If MyColumns.Hidden Then
            MyColumns.Hidden = False
            MyColumns.WrapText = True
        Else
            MyColumns.Hidden = True
            MyColumns.WrapText = False
        End If
End Sub
_________________________
Tony Fabris