Macro to unhide all sheets in a workbook

You can select a bunch of sheets to hide them, but unhiding needs to be done one at a time.. Pretty frustrating when you have hidden 10+ sheets or so.

This nifty little macro unhides all sheets in a workbook. I have it fixed in my ribbon, works pretty perfect for me.

Sub UnhideAll()

Dim WS As Worksheet
    For Each WS In Worksheets
        WS.Visible = True
End Sub