シート表示マクロ
Sub TEST()
Dim WsName(1 To 3) As Variant
Dim flag As Long
Dim i As Long
WsName(1) = "Sheet3"
WsName(2) = "Sheet8"
WsName(3) = "Sheet6"
Dim WS As Worksheet
For Each WS In Worksheets
flag = 0
For i = 1 To 3
If WS.Name = WsName(i) Then
flag = 1
Next
If flag = 0 Then
WS.Visible = False
ElseIf flag = 1 Then
WS.Visible = True
End If
Next
End Sub