將隱藏住的各工作紙全部顯示出來

以下程式可以顯示工作表(Workbook)中各工作紙(Worksheet)的名稱, 不管此工作紙是否被隱藏(普通或深度隱藏).

Hints: 以for...next循環顯示直至最後一個為止.

Sub displayallwkshtname()
    For Each wksh In ActiveWorkbook.Sheets
        MsgBox wksh.Name
    Next
End Sub