Unhide Several Sheets

[jonas10]

Does anyone know a method to unhide several sheets in a workbook at the same time? Rightclicking and selecting unhide im only able to unhide one at a time. I have 40 that I have to unhide and then rehide each day.

Thanks!

 

[frabulator]

See if this works for you

[COLOR=#000000]Sub Unhide_Multiple_Sheets()[/COLOR]Dim ws As Worksheet
    
    For Each ws In ActiveWorkbook.Worksheets
        
        ws.Visible = xlSheetVisible
    
    Next ws
 [COLOR=#000000]End Sub[/COLOR]

 

[MattH1]

Hey Jonas,

My suggestion is to use a macro here. Run one to hide and one to unhide.

Sub HideSheet()
Sheets("ENTER SHEET NAME HERE").Visible = False
End Sub

Sub UnhideSheet()
Sheets("ENTER SHEET NAME HERE").Visible = True
End Sub

For each sheet you want to hide, make another line.
For example:

Sub HideSheet()
Sheets("Data").Visible = False
Sheets("Projects").Visible = False
Sheets("Conclusion").Visible = False
End Sub

This would hide the 3 sheets named "Data", "Projects", and "Conclusion".

Let me know if this works and/or if you need more assistance!

Edit: This works best if it's the SAME 40 that you have to hide and unhide daily, which is how it seems to be in this case.

 

[Rick Rothstein]

See if this works for you

[COLOR=#000000]Sub Unhide_Multiple_Sheets()[/COLOR]Dim ws As Worksheet
    
    For Each ws In ActiveWorkbook.Worksheets
        
        [B][COLOR="#FF0000"]If ws.Visible <> xlSheetVeryHidden Then[/COLOR][/B] ws.Visible = xlSheetVisible
    
    Next ws
 [COLOR=#000000]End Sub[/COLOR]

On the off-chance that there are some "Very Hidden" worksheets that should remain "Very Hidden", you might consider adding the If..Then condition I show in red above.