Macro to Hide Sheet Using Checkbox

[JamesA11]

Hi guys,

I've put together some macros to hide rows and columns using an ActiveX Checkbox. They work fine but I'm trying to add to them so they also hide a worksheet. An example macro is below.

Cell B10 of the sheet containing the macro has a name that corresponds to the name of another worksheet. I want the checkbox to hide that sheet but I'm struggling to get the reference right.

Can anyone point me in the right direction?

Thanks

Private Sub CheckBox1_Click()

Application.ScreenUpdating = False

If CheckBox1 = False Then
[10:10].EntireRow.Hidden = True
Else:
[10:10].EntireRow.Hidden = False
End If

If CheckBox1 = False Then
Sheets("Matrix").[7:7].EntireRow.Hidden = True
Else:
Sheets("Matrix").[7:7].EntireRow.Hidden = False
End If

Application.ScreenUpdating = False

End Sub

 

[My Aswer Is This]

Not sure where you want it put but here is how you do it:

Private Sub CheckBox1_Click()
'Modified  10/21/2020  4:48:53 AM  EDT
Application.ScreenUpdating = False
Dim ans As String
ans = Range("B10").Value

If CheckBox1 = False Then
[10:10].EntireRow.Hidden = True
Sheets(ans).Visible = False
Else:
[10:10].EntireRow.Hidden = False
End If

If CheckBox1 = False Then
Sheets("Matrix").[7:7].EntireRow.Hidden = True

Else:
Sheets("Matrix").[7:7].EntireRow.Hidden = False
End If


Application.ScreenUpdating = False

End Sub

 

[sykes]

Slightly different way...

Private Sub CheckBox1_Click()

Application.ScreenUpdating = False

If CheckBox1 = False Then
[10:10].EntireRow.Hidden = True
Else:
[10:10].EntireRow.Hidden = False
End If

If CheckBox1 = False Then
Sheets(ActiveSheet.Range("B10").Value).Visible = False

Sheets("Matrix").[7:7].EntireRow.Hidden = True
Else:
Sheets(ActiveSheet.Range("B10").Value).Visible = True
Sheets("Matrix").[7:7].EntireRow.Hidden = False

End If



Application.ScreenUpdating = False

End Sub

 

[JamesA11]

Thanks guys. It's also great to see different ways of doing it.

 

[sykes]

Pleasure. Glad to help.

 

[My Aswer Is This]

Thanks guys. It's also great to see different ways of doing it.

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.