Unhide Multiple Sheets

Code hiện ẩn toàn bộ sheet:

Copy

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