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