Unhide All VeryHidden Sheets in a workbook (w/o naming them)

[J.W. Aldridge]

I know how to hide sheets - veryhidden.
It requires me to name which sheets I want hidden...

However,
Any code to unhide ALL veryhidden sheets in a workbook - without
naming them all?

thanx

 

[Guest]

Try this:

sub hiddensheets()

dim ws as worksheet
for each ws in worksheets
if ws.visible = xlsheetveryhidden then ws.visible=xlsheetvisible
next ws

end sub