Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Excel / New Users / April 2008

Tip: Looking for answers? Try searching our database.

Unhide many sheets

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Paul S - 11 Apr 2008 20:48 GMT
How do I unhide 200 sheets in a workbook ?
Dave Peterson - 11 Apr 2008 20:56 GMT
You could use a macro to unhide all the sheets.

Option Explicit
Sub testme()
   Dim sht As Object
   For Each sht In ActiveWorkbook.Sheets
       sht.Visible = xlSheetVisible
   Next sht
End Sub

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

> How do I unhide 200 sheets in a workbook ?

Signature

Dave Peterson

Rick Rothstein (MVP - VB) - 11 Apr 2008 21:02 GMT
> How do I unhide 200 sheets in a workbook ?

Running this macro should work..

Sub UnhideAllHiddenSheets()
 Dim WS As Worksheet
 For Each WS In Worksheets
   If WS.Visible <> xlSheetVisible Then WS.Visible = xlSheetVisible
 Next
End Sub

but if you have some sheets that are Very Hidden and you want to keep them
Very Hidden, run this macro instead...

Sub UnhideAllHiddenSheets()
 Dim WS As Worksheet
 For Each WS In Worksheets
   If WS.Visible = xlSheetHidden Then WS.Visible = xlSheetVisible
 Next
End Sub

Rick
Paul S - 11 Apr 2008 21:24 GMT
Rick Rothstein \(MVP - VB\) wrote:

> > How do I unhide 200 sheets in a workbook ?

> Running this macro should work..

> Sub UnhideAllHiddenSheets()
> Dim WS As Worksheet
> For Each WS In Worksheets
> If WS.Visible <> xlSheetVisible Then WS.Visible = xlSheetVisible
> Next
> End Sub

> but if you have some sheets that are Very Hidden and you want to keep them
> Very Hidden, run this macro instead...

> Sub UnhideAllHiddenSheets()
> Dim WS As Worksheet
> For Each WS In Worksheets
> If WS.Visible = xlSheetHidden Then WS.Visible = xlSheetVisible
> Next
> End Sub

> Rick

Thank you

Rate this thread:






 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.