Toggle button Macro

[gobblechops]

Hi,

Below is some VBA code used with a toggle button to hide/unhide rows 8:10. This works perfectly.

I need to amend the code so the button hides/unhides rows 16,22,23,26,30,32,46,49,52,55,58 AND Columns G,H,I,J.

Private Sub ToggleButton1_Click()
Dim xAddress As String
xAddress = "8:10"
If ToggleButton1.Value Then
Application.ActiveSheet.Rows(xAddress).Hidden = True
ToggleButton1.Caption = "Show Scenario"
Else
Application.ActiveSheet.Rows(xAddress).Hidden = False
ToggleButton1.Caption = "Hide Scenario"
End If
End Sub

Thanks in advance.

 

[dmt32]

Hi,
untested

Private Sub ToggleButton1_Click()
    Range("G:J").EntireColumn.Hidden = ToggleButton1.Value
    Range("8:10,16:16,22:23,26:26,30:30,32:32,46:46,49:49,52:52,55:55,58:58").EntireRow.Hidden = ToggleButton1.Value
    ToggleButton1.Caption = IIf(ToggleButton1.Value, "Show Scenario", "Hide Scenario")
End Sub

Dave

 

[gobblechops]

Brilliant, Thanks Dave.

Works well

 

[dmt32]

Brilliant, Thanks Dave.

Works well

welcome - many thanks for feedback

Dave