Hide 2 worksheets

[rspalding]

I'm using the following code for 1 sheet but I wan't to add a second sheet. I also want to hide Form 3 sheet. When I add it to this code, it errors.

Private Sub CheckBox1_Click()
On Error Resume Next
ThisWorkbook.Sheets("#UP FORM 3", "FORM 3").Visible = CheckBox1.Value
End Sub

Thanks,

 

[alansidman]

[COLOR=#333333]Private Sub CheckBox1_Click()[/COLOR]
[COLOR=#333333]On Error Resume Next[/COLOR]
[COLOR=#333333]ThisWorkbook.Sheets("#UP FORM 3").Visible = False
[/COLOR][COLOR=#333333]ThisWorkbook.Sheets("FORM 3").Visible = False[/COLOR]
[COLOR=#333333]End Sub[/COLOR]

 

[Trebor76]

As long as the CheckBox1 is a boolean value, you can hide multiple sheets like so (CheckBox1 = False or 0):

ThisWorkbook.Sheets(Array("#UP FORM 3", "FORM 3")).Visible = CheckBox1.Value

The problem is though you can only unhide sheets one at a time. So you would need to loop through an array like so:

Option Explicit
Sub Macro1()

    Dim varMySheet As Variant
    
    Application.ScreenUpdating = False
    
    For Each varMySheet In Array("#UP FORM 3", "FORM 3")
        Sheets(varMySheet).Visible = CheckBox1.Value
    Next varMySheet
    
    Application.ScreenUpdating = True
    
End Sub

As such I would just use the array method as it's consistent and you wouldn't have to test whether you were hiding or unhiding to determine which method to use.

Regards,

Robert