VBA to UnHide/Hide Sheets

I have a workbook with about 20 worksheets in it.
6 are visible
3 are hidden
the remaining are very hidden

I'm creating a "welcome" page to the workbook with instructions on how to update data. The data between the 20 sheets consists of pivot tables, charts and summary data. The Visible sheets are data for management's review (all protected). The 3 hidden sheets are pivot tables that the user needs to pull data from and the very hidden sheets are not to be seen by anyone.

In my "welcome" page, I added the instructions of how to update data, but wanted an area where I could assign a checkbox or button to click on for the user to unhide my 3 hidden sheets (say Sheet1, Sheet2 and Sheet3). I do not want it to unhide my very hidden sheets. Then, when the information needed is retrieved from those sheets, I would like the user to use a checkbox or button to hide the 3 hidden sheets again. Is there a way to do this?

I tried creating custom view but couldn't do that because of the pivot tables (the option was disabled). I'm a beginner in VBA so don't even know how to begin. Hoping someone can help.

Hi maryren,

If you can work with some code, take the following and adapt it to your requirements. I created a userform that unhides the days of the week by means of checkboxes. Hiding and unhiding sheets all use the same principles in VBA so you should be able to adapt my code without any issues. If you're not comfortable with coding VBA then you'll need to upload your workbook. Anyways, my code from my userform:

Private Sub CommandButton1_Click()
    Dim shtNm(5) As Worksheet
    Dim x As Long
    Application.ScreenUpdating = False
    For x = 1 To 5
        Select Case x
            Case 1
                Set shtNm(x) = Worksheets("Monday")
                If Me.Controls("cb" & x).Value = True Then
                    shtNm(x).Visible = xlSheetVisible
                End If
            Case 2
                Set shtNm(x) = Worksheets("Tuesday")
                If Me.Controls("cb" & x).Value = True Then
                    shtNm(x).Visible = xlSheetVisible
                End If
            Case 3
                Set shtNm(x) = Worksheets("Wednesday")
                If Me.Controls("cb" & x).Value = True Then
                    shtNm(x).Visible = xlSheetVisible
                End If
            Case 4
                Set shtNm(x) = Worksheets("Thursday")
                If Me.Controls("cb" & x).Value = True Then
                    shtNm(x).Visible = xlSheetVisible
                End If
            Case 5
                Set shtNm(x) = Worksheets("Friday")
                If Me.Controls("cb" & x).Value = True Then
                    shtNm(x).Visible = xlSheetVisible
                End If
        End Select
    Next x
    Application.ScreenUpdating = True
    Unload Me
End Sub

Let me know if this helps you or only confuses you.

Thanks for the Rep!