Sub UnhideSheet()

Dim Sheet As Worksheet
For Each Sheet In Worksheets: Sheet.Visible = True: Next Sheet

End Sub