Cacher is the code snippet organizer for pro developers

Sub UnHideSheets()
Dim Sh As Worksheet

    For Each Sh In ActiveWorkbook.Worksheets
        Sh.Visible = xlSheetVisible
    Next Sh
    
End Sub