To set the visible property to True on ALL sheets in workbook
Sub Un_Hide_All() Dim sh As Worksheet For Each sh In Worksheets sh.Visible = True Next End Sub