Hide/unhide non consecutive rows with toggle button

[onthegreen03]

Hi. I have the code below which I'm hoping will hide the non consecutive rows listed, but when I run the code it errors out. The code was working when it was just 2 consecutive rows (1:2), but now that I need to hide/unhide multiple rows (non consecutive) it no longer works. Any help would be appreciated.

Private Sub ToggleButton1_Click()

Dim xAddress As String

xAddress = "19,30,43,49,55,86,93,103,109,115" 'change this to the row numbers



If ToggleButton1.Value Then

Application.ActiveSheet.Rows(xAddress).Hidden = True

ToggleButton1.Caption = "Show Row"

Else

Application.ActiveSheet.Rows(xAddress).Hidden = False

ToggleButton1.Caption = "Hide Row"

End If

End Sub

 

[Akuini]

Maybe this:

Private Sub ToggleButton1_Click()

Dim xAddress As String

xAddress = "A19,A30,A43,A49,A55,A86,A93,A103,A109,A115"

If ToggleButton1.Value Then

    Range(xAddress).EntireRow.Hidden = True
   
    ToggleButton1.Caption = "Show Row"

Else

    Range(xAddress).EntireRow.Hidden = False
   
    ToggleButton1.Caption = "Hide Row"

End If

End Sub

 

[onthegreen03]

Thanks, let me try that.

 

[onthegreen03]

It worked great, thank you!

 

[Akuini]

You're welcome, glad to help & thanks for the feedback.