請問各位大大，我今天想寫出條件(顯示或隱藏)的按鈕

各位大大您們好，

我今天有一個條件是，希望針對C5:C1000 裡面有存在空格或數字為0的時候 隱藏

所以我有爬文到以下

Sub 隱藏列用()
Dim Rng As Range
[C5:C1000].EntireRow.Hidden = False
For Each a In [C5:C1000]
If a = 0 Or a = "" Then
If Rng Is Nothing Then
Set Rng = a
Else
Set Rng = Union(Rng, a)
End If
End If
Next
If Not Rng Is Nothing Then Rng.EntireRow.Hidden = True
End Sub

但是

我希望他按一下隱藏，按一下再復原(顯示列)的話

我要如何寫呢？

目前做法就是做出兩個按鈕，但我期望一個按鈕解決