Excel VisualBasic Script

Sub Un_Hide_All()
    Dim sh As Worksheet
    For Each sh In Worksheets
        sh.Visible = True
    Next
End Sub