Unhide all worksheets at same time

Excel 2007 made it easier to unhide sheets, but this macro unhides them all at the same time.  Very quick and easy to use.  I personally attach the user command ‘Ctrl+u’ to unhide all sheets because I use this macro almost daily.  It is also very functional to make files smaller by identifying hidden sheets that aren’t being used and deleting them.

Here’s the VBA code!

Sub Unhide_All_Worksheets()

Application.ScreenUpdating = False

On Error Resume Next

For Each w In Application.Worksheets

w.Visible = True

Next w

For Each z In Application.Charts

z.Visible = True

Next z

End Sub