toggle a macro

[still learning]

Hi

I want to put a button on the ribbon that will hide and unhide column. I don’t need a password.
I want it to toggle each time I click on it
First click>>unhide
second click>>hide

Sub unhide()
  Columns("a:a").EntireColumn.Select
      Selection.EntireColumn.Hidden = False
  End Sub

Sub hide()
  Columns("a:a").EntireColumn.Select
      Selection.EntireColumn.Hidden = True
  End Sub

mike

 

[jkpieterse]

Sub ToggleHidden()
  Range("a:a").EntireColumn.Hidden = Not Range("a:a").EntireColumn.Hidden
End Sub

 

[still learning]

thanks jkpieterse,
That's exactly what i need

mike