Unhiding worksheets 2

[boottmills]

Is there a way to unhide multiple worksheets at once as opposed to one at a time?

Boottmills

 

[TomBarsh]

In Excel 2003 there appears to be no command available through the menus. However, I have a VBA macro as part of an "auditing" workbook that unhides all hidden worksheets:

Sub showAllSheets()
Dim sheet As Object

Application.ScreenUpdating = False

For Each sheet In ActiveWorkbook.Sheets
sheet.Visible = True
Next sheet
End Sub

With some more work you could have a similar command that would load a dialog with a selection list which would list all of the hidden worksheets and then allow you to select multiple sheets to unhide at once.

 

[yogia]

Hi boottmills:

Picking up from TomBarsh, ... how about unhiding say Sheet6, Sheet7, and Sheet9

Sub y_1a()
        For Each sh In Sheets(Array("Sheet6", "Sheet7", "Sheet9"))
            With sh
                .Visible = True
            End With
        Next
End Sub

Would this work for you?

Yogi Anand, D.Eng, P.E.
Energy Efficient Building Network LLC
ANAND Enterprises LLC

http://www.energyefficientbuild.com

 

[joerd]

You may also install a utility like ASAP (

http://www.asap-utilities.com)

that'll have a menu command for it.

Cheers,
Joerd

Please see FAQ731-376 for tips on how to make the best use of Eng-Tips.

 

[boottmills]

Sirs,

These both work fantastically! Thank you very much!

Boottmills