Unhide Sheets

[Peterite]

Is there a way to unhide multiple sheets at the same time?

Thanks for your help!

 

[JE McGimpsey]

One way:

Public Sub UnHideAllSheets()
Dim wsSheet As Worksheet
For Each wsSheet In Worksheets
wsSheet.Visible = True
Next wsSheet
End Sub