Nur bestimmte Tabellenblätter einblenden

Sub anzeigen()
Dim xWs As Worksheet
Dim xName As Variant
xName = Array("Nr1.2", "Nr3.1")
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name  xName Then
xWs.Visible = xlSheetHidden
End If
Next
End Sub