Hide Row using Button

Hello

I want to unhide one row at a time but then also have an option to hide a row if it is not needed. I am using an ActiveX button to unhide one row at a time and that is working well, but what code would I need for (I assume) a second ActiveX button to hide one row at a time.

Unhiding is:

Private Sub CommandButton2_Click()
Dim r As Long

r = 55
Do Until Rows(r).Hidden = True Or r > 64
    r = r + 1
Loop
If r <= 64 Then Rows(r).Hidden = FalseShare
End Sub

Hiding is...?

Thanks!