Toggle to Hide Rows

[rbell22]

Hi All,

Thanks in advance for your help. I hope this will be fairly easy, but I have spent quite a bit of time on this, and I couldn't quite get it.

I need a Toggle code that if I click on it, rows 8:126 will be hidden no matter their value and the rest of the rows will be shown. And if I click again, rows 128:129 will be hidden no matter their value and the rest of the rows will be shown.

Thanks again,

Rob

[JKwan]

Add a ToggleButton to your sheet and put the following code in

Private Sub ToggleButton1_Click()
    Select Case Rows("8:126").Hidden
        Case True
            Rows("128:129").Hidden = True
            Rows("8:126").Hidden = False
            Me.ToggleButton1.Caption = "128 - 129 Hidden"
        
        Case False
            Rows("8:126").Hidden = True
            Rows("128:129").Hidden = False
            Me.ToggleButton1.Caption = "8 - 126 Hidden"
    End Select
End Sub

[rbell22]

This is perfect. Thank you so much

Add a ToggleButton to your sheet and put the following code in

Private Sub ToggleButton1_Click()
    Select Case Rows("8:126").Hidden
        Case True
            Rows("128:129").Hidden = True
            Rows("8:126").Hidden = False
            Me.ToggleButton1.Caption = "128 - 129 Hidden"
        
        Case False
            Rows("8:126").Hidden = True
            Rows("128:129").Hidden = False
            Me.ToggleButton1.Caption = "8 - 126 Hidden"
    End Select
End Sub