VBA code for hide/unhide separate rows

[mare23]

Hi everyone!

Is there any VBA code for hide/unhide separate rows. for example
When I click - button once hide all rows from 23-31 and when I click the - button a second time hide rows 14-22
When I click + button once unhide all rows from 14 -22 and when I click the + button a second time hide rows 23-31


Thx
Mare

 

[mare23]

Great, thx!

Option Explicit

Private bToggleMINUS As Boolean
Private bTogglePLUS  As Boolean

Public Sub Btn_MINUS()
    If Not bToggleMINUS Then
        Me.Rows("26:53").Hidden = True
        Me.Rows("82:107").Hidden = True
        Me.Rows("137:161").Hidden = True
        Me.Rows("191:215").Hidden = True
        Me.Rows("244:269").Hidden = True
        Me.Rows("299:323").Hidden = True
    End If
    bToggleMINUS = Not bToggleMINUS
End Sub

Public Sub Btn_PLUS()
    If Not bTogglePLUS Then
        Me.Rows("26:53").Hidden = False
        Me.Rows("82:107").Hidden = False
        Me.Rows("137:161").Hidden = False
        Me.Rows("191:215").Hidden = False
        Me.Rows("244:269").Hidden = False
        Me.Rows("299:323").Hidden = False
    End If
    bTogglePLUS = Not bTogglePLUS
End Sub

I am using the above code to hide a group of rows, but I have to hit each button twice for it to hide and unhide everything. Is there a way to make it happen with just one click?