[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]
Sub HideSheet()
Sheets("ENTER SHEET NAME HERE").Visible = False
End Sub
Sub UnhideSheet()
Sheets("ENTER SHEET NAME HERE").Visible = True
End Sub
Sub HideSheet()
Sheets("Data").Visible = False
Sheets("Projects").Visible = False
Sheets("Conclusion").Visible = False
End Sub
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.See if this works for you
Code:[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]