Sub makeverhidden()
For Each sh In Worksheets
If sh.Visible = False Then sh.Visible = xlVeryHidden
Next sh
End Sub
Sub unhidesheets()
For Each sh In Worksheets
sh.Visible = True
Next sh
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Steve" wrote in message
...
Howdee all.
Hope everyone had a great weekend.
I'm looking to work through a series of workbooks that have numerous-- and
I
mean lots-- of hidden tabs.
My goal is to xlveryhidden all hidden tabs, so that other users who don't
have the need can't access a hidden tab.

My initial thoughts on this have been-

if worksheet.visibility = xlhidden then
worksheet.visibility = xlveryhidden.

My problem is that when I've tried this, it'd hang up, or give me an
error.
I'm sure that it's something real simple, but so far I haven't been able
to
make it work.

And yes, I'd be using a for loop to work through all the hidden tabs in a
given file.

Thank you.
Best.