Hidden Sheets
 

I was given a workbook that contains about 50 sheets. All but 3 are
hidden. Is there an easy way to unhide a lot of sheets at the same
time without have to do each one at a time?

Any help is greatly appreciated!!!

Mark

Hidden Sheets
 

A simple macro would do the trick. Put the following into a VBA module
and run it.

Sub UnHideSheets()
For Each sh In Worksheets
sh.Visible = True
Next sh
End Sub

- John

Hidden Sheets
 

This worked perfect once I figured out how to create a VBA module.
Obvisouly writing the script that you gave me was the hard part and I
appreciate it immensely!! Thank you!

How do I create a toolbar button for the macro?

Mark

Hidden Sheets
 

Try:
View Toolbars Customize Commands tab Macro

Then drag the smiley face to you toolbar and drop it between other
icons.

Click on it once and assign it to the sheets macro.

I don't add many macros to toolbars so there are probably some other
tricks you'll need to know but this should get you started.

Note if you are going to use this macro frequently, you should copy it
to you Personal.xls file so it is always available.

Hidden Sheets
 

Excellent. Thank you for the information.

Mark