Hide and Unhide Multiple Rows

[RandyD123]

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 multiple rows on a worksheet. The problem is that I have to sometimes click the buttons twice to make it work. I also would like a real toggle button that changes text so I can do it with just one button. I have 12 sheets in one workbook so I will add this button to each worksheet. Any help would be appreciated.

 

[Fluff]

What sort of "button" are you using to run the code?

 

[RandyD123]

What sort of "button" are you using to run the code?

Just a regular form button.....

 

[RandyD123]

What sort of "button" are you using to run the code?

If there is someplace to put the code only once and just add a button to each sheet, that would be a much better solution, that way I wouldn't have to add the code to each worksheet...

 

[Fluff]

If you put this code in a standard module, you can then assign it to each button

Sub RandyD()
   With ActiveSheet.Shapes(Application.Caller).TextFrame.Characters
      Rows("26:53").Hidden = .Text = "Hide"
      Rows("82:107").Hidden = .Text = "Hide"
      .Text = IIf(.Text = "Hide", "Unhide", "Hide")
   End With
End Sub