シート表示マクロ

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