VB code Hide Rows AND hide Sheets

[Joshua_JC]

Hi there,

So posted below is the code i am working with.

Basically the user will use the checkbox this is assigned to, to select items.
If the item is checked, then the row on the results tab is made visible and the sheet for that item is also made visible.
If the item is NOT checked, then the row on the results tab is made hidden as is the sheet for that item.

I can get the Hide rows to work but for some reason when I add in the code to Hide the sheets, the button attached to the code will ONLY hide the rows.

Private Sub CheckBox8_Click()
If CheckBox1 = True Then
Sheets("Results").Rows("11").EntireRow.Hidden = False
Sheet3.Visible = False '.VWorksheets("Sheet3").Visible = False
End If
If CheckBox1 = False Then
Sheets("Results").Rows("11:14").EntireRow.Hidden = True
Sheet3.Visible = True 'Worksheets("Sheet3").Visible = True
End If
End Sub

I have also tried to use the code this way. (Also with no results)

Private Sub Checkbox2_Click()
If CheckBox1 = True Then
Sheets("Results").Rows("15").EntireRow.Hidden = False
Sheets("Sheet3").Visible = True
End If
If CheckBox1 = False Then
Sheets("Results").Rows("15").EntireRow.Hidden = True
Sheets("Sheet3").Visible = False
End If
End Sub

Thoughts on what Im doing wrong here?

 

[mumps]

This worked for me:

Private Sub CheckBox1_Click()
    If CheckBox1 = True Then
        Sheets("Results").Rows("15").EntireRow.Hidden = False
        Sheets("Sheet3").Visible = True
    Else
        Sheets("Results").Rows("15").EntireRow.Hidden = True
        Sheets("Sheet3").Visible = False
    End If
End Sub

 

[Joshua_JC]

This is perfect. Thank you so much for the help!!

 

[mumps]

My pleasure.