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.

[code language=”vb”]
Sub ShowAllWorkSheets()
‘Makes all worksheets visible
Dim CWS As Worksheet

For Each CWS In ThisWorkbook.Worksheets
CWS.Visible = xlSheetVisible
Next CWS
End Sub
[/code]