Unhiding worksheets
Unhiding worksheets
(OP)
Is there a way to unhide multiple worksheets at once as opposed to one at a time?
Boottmills
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS Come Join Us!Are you an
Engineering professional? Join Eng-Tips Forums!
*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail. Posting GuidelinesJobs |
|
RE: Unhiding 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.
RE: Unhiding worksheets
Hi boottmills:
Picking up from TomBarsh, ... how about unhiding say Sheet6, Sheet7, and Sheet9
CODE
For Each sh In Sheets(Array("Sheet6", "Sheet7", "Sheet9"))
With sh
.Visible = True
End With
Next
End Sub
Yogi Anand, D.Eng, P.E.
Energy Efficient Building Network LLC
ANAND Enterprises LLC
http://www.energyefficientbuild.com
RE: Unhiding worksheets
Cheers,
Joerd
Please see FAQ731-376: Eng-Tips.com Forum Policies for tips on how to make the best use of Eng-Tips.
RE: Unhiding worksheets
These both work fantastically! Thank you very much!
Boottmills