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

"J.W. Aldridge" wrote:

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