Hidden Sheets

Q

QUESTION-MARK

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
 
J

John Michl

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
 
Q

QUESTION-MARK

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
 
J

John Michl

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.
 
Top