Unhide multiple work sheets at once

  • Thread starter Thread starter Guest
  • Start date Start date
With VBA

Sub UnHideAll()
Dim ws As Object
Set ws = ActiveWorkbook.Sheets
For Each Sheet In ws
Sheet.Visible = True
Next Sheet
End Sub
 
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
 
Back
Top