Hide / Unhide worksheets

[gmazza76]

Good afternoon,

I think this maybe a simple one, but I have no idea why an error has started suddenly when the code below works in another sheet

I have 2 subs() 1 to hide and 1 to unhide, but I am getting a 'Run-timer error '1004': Application-defined or object-defined error" and I am lost with it.
even if I change the xlVeryHidden to True I still get the same error.

Private Sub RevealSheets()
    Sheet1.Visible = True
    Sheet2.Visible = True
    Sheet3.Visible = True
    Sheet4.Visible = True
    Sheet5.Visible = True
    Sheet6.Visible = True
    Sheet7.Visible = True
    
       Sheets("Welcome Page").Select
End Sub
Private Sub HideSheets()

    
    Sheet1.Visible = xlVeryHidden
    Sheet2.Visible = xlVeryHidden
    Sheet3.Visible = True
    Sheet4.Visible = xlVeryHidden
    Sheet5.Visible = xlVeryHidden
    Sheet6.Visible = xlVeryHidden
    Sheet7.Visible = xlVeryHidden
    
        Sheets("Welcome Page").Select
End Sub

Any idea what I am doing wrong, thanks in advance

 

[Candyman8019]

Do all sheets 1-7 exist in the workbook you're trying to use this on? What line does it error out on?

 

[dmt32]

Hi,

You should be able to perform both operations within one code

Untested but try this update & see if does what you want

Sub HideSheets(ByVal SheetVisible As XlSheetVisibility)
    Dim ws As Worksheet
    
    With Worksheets("Welcome Page")
        .Visible = xlSheetVisible
        .Select
     End With
     
     Sheet3.Visible = xlSheetVisible
     
    For Each ws In Worksheets(Array(Sheet1.Name, Sheet2.Name, Sheet4.Name, Sheet5.Name, Sheet6.Name, Sheet7.Name))
        ws.Visible = SheetVisible
    Next
End Sub

Call the code & pass required argument (which you can select from the IntelliSense)

 HideSheets xlSheetVisible

or

 HideSheets xlSheetVeryHidden

Dave

 

[DanteAmor]

I think this maybe a simple one, but I have no idea why an error has started suddenly when the code below works in another sheet

Do you only have problems with sheet3?
You can share your file for review.

You could upload a copy of your file to a free site such www.dropbox.com or google drive. Once you do that, mark it for 'Sharing' and you will be given a link to the file that you can post here. If the workbook contains confidential information, you could replace it with generic data.