Ẩn tất cả sheet khi link đến sheet khác

Sub Group1_Click()
Dim ws As Worksheet
MySheets = Array("TENKH", "CDPS", "MENU", "A11")
Call Hide_Show(MySheets)
End Sub

Sub Group2_Click()
MySheets = Array("TENKH", "CDPS", "MENU", "A12")
Call Hide_Show(MySheets)
End Sub

Sub Group3_Click()
MySheets = Array("TENKH", "CDPS", "MENU", "A13")
Call Hide_Show(MySheets)
End Sub

Sub Hide_Show(MySheets)
  Dim ws As Worksheet
  Application.ScreenUpdating = False
  For Each ws In ActiveWorkbook.Worksheets
    If IsInArray(ws.Name, MySheets) Then
    ws.Visible = True
    Else
    ws.Visible = False
    End If
  Next
  Worksheets(MySheets(UBound(MySheets))).Activate
  Application.ScreenUpdating = True
End Sub
Sub UnhideAllSheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Visible = xlSheetVisible
Next ws
End Sub

Sub CommandButton1_Click()
Call Group1_Click
End Sub

Private Sub CommandButton2_Click()
Call Group2_Click
End Sub

Private Sub CommandButton3_Click()
Call Group3_Click
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Function IsInArray(stringToBeFound As String, arr As Variant) As Boolean
  IsInArray = (UBound(Filter(arr, stringToBeFound)) > -1)
End Function