VBA – Excel – Routine to Show All Worksheets (ie Make visible)

When there are a lot of hidden worksheets, making them visible one by one can be a pain. Stick this small routine in to quickly make all worksheets visible.

Sub ShowAllWorkSheets()
    'Makes all worksheets visible
    Dim CWS As Worksheet
    
    For Each CWS In ThisWorkbook.Worksheets
        CWS.Visible = xlSheetVisible
    Next CWS
End Sub