Unhide all hidden sheets
Sub UnHideSheets() Dim Sh As Worksheet For Each Sh In ActiveWorkbook.Worksheets Sh.Visible = xlSheetVisible Next Sh End Sub