Unhiding Sheets

Posted by Carolyn on September 25, 2001 6:12 AM

I have several workbooks in which I keep multiple sheets hidden. Is there an easier way to unhide the sheets rather than the one-by-one method of format-sheet-unhide? Thank You for your help

Posted by Daniel on September 25, 2001 6:59 AM

You could use a very simple bit of code:-

Sub UnhideAllSheets()
For Each s In ActiveWorkbook.Sheets
s.Visible = xlSheetVisible
Next
End Sub

HTH,
Dan.

Posted by Mike on September 25, 2001 7:02 AM

...there may be a more scientific way but I simply record a macro the first time that I unhide them (tools-macro-record new macro)and then use this subsequent times - connected to a button on a worksheet this is a one-click operation to unhide all required sheets......if it is for client use you can record the macro in a different workbook so that only you have access to it...