Hi TehXII7 and welcome to the forum,
Doing all your requests using check boxes takes too much programming overhead. Here is another possible way that may be better for you. In the attached are lists of sheet numbers you can hide or unhide by simply adding or removing numbers from the lists. I've given the lists NAMED RANGED that are DYNAMIC so you can add or remove numbers from them. I've also included some code to make the buttons work.
See if this example gets you closer to your goal. BTW - there are only 15 tabs in this example.
Code looks like this:
Sub HideTabs()
Dim TabNo As Double
Dim LastTab As Double
LastTab = Range("Hide_TabsDNR").Count
On Error Resume Next
For TabNo = 2 To LastTab
Sheets(Range("Hide_TabsDNR")(TabNo)).Visible = False
Next TabNo
On Error GoTo 0
Sheets(1).Select
End Sub
Sub UnHideTabs()
Dim TabNo As Double
Dim LastTab As Double
LastTab = Range("Hide_TabsDNR").Count
On Error Resume Next
For TabNo = 2 To LastTab
Sheets(Range("UnHide_TabsDNR")(TabNo)).Visible = True
Next TabNo
On Error GoTo 0
Sheets(1).Select
End Sub
Bookmarks