Excel VisualBasic Script

Sub UnhideAllWorksheets() 
    Dim ws As Worksheet 
    For Each ws In ThisWorkbook.Worksheets 
        ws.Visible = xlSheetVisible 
    Next ws 
    Set ws = Nothing 
End Sub