Sub UnHideAll()

' Unhide All Spreadsheets

For Each ws In Sheets: ws.Visible = True: Next
End Sub