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