Excel VisualBasic Script

Sub xlVeryHidden_All_Sheets()
    On Error Resume Next
    Dim sh As Worksheet
    For Each sh In Worksheets
        sh.Visible = xlVeryHidden
    Next
End Sub