VBA: Unhide all sheets in Excel

Code:

Sub UnhideAllSheets()
    Dim ws as Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        ws.Visible = xlSheetVisible
    Next ws
End Sub