آشکار سازی شیت ها در اکسل

آشکار سازی توسط کد زیر صورت میگیرد :

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