Hide columns using a button

If you need to hide certain columns using a button, you can use this code.  It will even change the command button text to Hide Columns and then again change it to Unhide Columns.

Sub Hide_C()

Dim C_ell As Range

ActiveSheet.Shapes.Range(Array("Button 2")).Select

If Selection.Characters.Text = "Unhide Columns" Then

Columns.Hidden = False

Selection.Characters.Text = "Hide Columns"

Else

For Each C_ell In Range("B1", Cells(1, Columns.Count).End(xlToLeft))

If C_ell = "x" Then C_ell.Columns.Hidden = True

Next

Selection.Characters.Text = "Unhide Columns"

End If

Range("A2").Select

End Sub