toggle hide cols using shape as button

Question

I used something similar years ago but, trying to assign a macro to a shape (used as button). Trying to hide A:D if unhidden but, if it already hidden, unhide them.

Found code using a button but, works differently when using a shape.

Sub Toggle_HIDE()

If Columns("A:D").Hidden = True Then

Columns("A:D").Select

Selection.EntireColumn.Hidden = False 

End If 

Exit Sub 

If Columns("A:D").Hidden = False Then 

Columns("A:D").Select

Selection.EntireColumn.Hidden = True 

    End If 

End Sub

Answer 1

Try this one.

==================

Sub Toggle_HIDE()

If Columns("A:D").Hidden = True Then

Columns("A:D").Select

Selection.EntireColumn.Hidden = False

Exit Sub

End If

If Columns("A:D").Hidden = False Then

Columns("A:D").Select

Selection.EntireColumn.Hidden = True

End If

End Sub

Answer 2

Thanks!

When i make my first million.... I'm buying you a Krystal burger WITH cheese!

Answer 3

Try just

Sub Toggle_HIDE()

Columns("A:D").Hidden = Not Columns("A:D").Hidden

End Sub