Skip to content

Instantly share code, notes, and snippets.

@DuongAQ
Created February 21, 2018 07:44
Show Gist options
  • Save DuongAQ/bbe73933113a9abb65bdea9fe82cc16a to your computer and use it in GitHub Desktop.
Save DuongAQ/bbe73933113a9abb65bdea9fe82cc16a to your computer and use it in GitHub Desktop.
Sub Hide_Sheet_Test01() 'Ẩn những Sheet cụ thể
Dim ar As Variant
Dim ws As Variant
'Tạo nhóm các Sheet cần thực hiện
ar=Array("Sheet1", "Sheet2")
'Lệnh ẩn Sheet
For Each ws In ar
Worksheets(ws).Visible=xlSheetHidden
Next ws
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment