Buton ile sütun gizleyip açmak

[maxinates]

arkadaşlar, Çalışma sayfasında bir buton ile yandaki sütunu gizleyip açmak istiyorum. bunu iki butonla yapıyorum. Fakat aynı buton ile bu işlemi yapmak istiyorum. yardımcı olursanız sevinirim.

 

[DeliBalta58]

Sub sutungizle()
    Columns("E:E").EntireColumn.Hidden = True
End Sub
Sub sutungöster()
    Columns("E:E").EntireColumn.Hidden = False
End Sub

 

[veyselemre]

Columns(6).Hidden = Not Columns(6).Hidden