Unhiding multiple sheets

  • Thread starter Thread starter Larry Fitch
  • Start date Start date
L

Larry Fitch

I have figured out how to unhide multiple sheets in a workbook -

Sub Unhide_All_Sheets()

Dim WS As Worksheet
For Each WS In ActiveWorkbook.Worksheets
WS.Visible = True
Next WS

End Sub

What I am now trying to figure out is a way to make the tabs to appear as
the sheets are open, but I am trying to prevent the momentary "jumping" to
each sheet..

Is there anything that can be added to this code to prevent that
 
Try

Sub Unhide_All_Sheets()
Dim WS As Worksheet
Application.ScreenUpdating = False
For Each WS In ActiveWorkbook.Worksheets
WS.Visible = True
Next WS
Application.ScreenUpdating = True
End Sub

If this post helps click Yes
 
Back
Top