One way:

Public Sub UnhideAll()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Visible = xlSheetVisible
Next ws
End Sub


In article ,
srinivasan wrote:

Dear friends,
I am having a workbook with about 75 worksheets each named differently. For
my convenience I hide many worksheets. Can I unhide all the hidden worksheets
in one stroke with a macro or otherway?