unhide worksheets

[chaju]

How can I unhide all worksheets at one go? Usually you have to select each sheet at a time and that takes time.

 

[Dragracer]

try this

Sub UnHideAll()

Dim wsSheet As Worksheet

    For Each wsSheet In Worksheets
        wsSheet.Visible = xlSheetVisible
        
    Next wsSheet

End Sub

 

[royUK]

Try downloading the free asap utility from http://www.asap-utilities.com