M Mallycat Jul 15, 2006 #2 With VBA Sub UnHideAll() Dim ws As Object Set ws = ActiveWorkbook.Sheets For Each Sheet In ws Sheet.Visible = True Next Sheet End Sub
With VBA Sub UnHideAll() Dim ws As Object Set ws = ActiveWorkbook.Sheets For Each Sheet In ws Sheet.Visible = True Next Sheet End Sub
G Gord Dibben Jul 15, 2006 #3 A macro to unhide all sheets. Sub Show_Sheets() Dim i As Integer For i = 1 To ActiveWorkbook.Worksheets.Count ActiveWorkbook.Worksheets(i).Visible = True Next i End Sub Gord Dibben MS Excel MVP
A macro to unhide all sheets. Sub Show_Sheets() Dim i As Integer For i = 1 To ActiveWorkbook.Worksheets.Count ActiveWorkbook.Worksheets(i).Visible = True Next i End Sub Gord Dibben MS Excel MVP