Private Sub Worksheet_Change(ByVal Target As Range)
  Const KomorkaSterujaca = "A1"
  Const Arkusze = ",ark1,ark3,"  'arkusze ukrywane

  Dim arkusz As Worksheet
  Dim nazwa As String
  Dim widoczne As Boolean

  Application.ScreenUpdating = False
  
  If Not Intersect(Range(KomorkaSterujaca), Target) Is Nothing Then
    widoczne = (Range(KomorkaSterujaca) = 1)

    For Each arkusz In Worksheets
      nazwa = "," & arkusz.Name & ","
      If InStr(1, Arkusze, nazwa) > 0 Then
        arkusz.Visible = widoczne
      End If
    Next arkusz
  
  End If
  
  Application.ScreenUpdating = True
End Sub

Sub Zaznacz2()
  Dim TablicaArkuszy() As String
  Dim Arkusz As Worksheet
  Dim z As Long

  z = 0
  For Each Arkusz In Worksheets  'sprawdza wszystkie arkusze
    
    If Len(Arkusz.Name) = 2 Then  'warunek dla arkusza z długością nazwy 2 znaki
      z = z + 1  'licznik argumentu tablicy
      ReDim Preserve TablicaArkuszy(1 To z) 'zwiekszenie rozmiaru tablicy
      TablicaArkuszy(z) = Arkusz.Name  ' wpisuję do tablicy
    End If
  
  Next

  Sheets(TablicaArkuszy).Select  ' to nie działa ??? -> teraz działa!!!

End Sub

Sub Zaznacz ()
      Sheets(Array("54", "56", "58", "62", "66", "68", "75")).Select
end sub

Sub Zaznacz2()
Dim TablicaArkuszy(17)
Dim Arkusz As Worksheet
DIM Z&

Z = 1
For Each Arkusz In Worksheets 'sprawdza wszystkie arkusze

    If Len(Arkusz.Name) = 2 Then 'warunek dla arkusza z długością nazwy 2 znaki
    
        TablicaArkuszy(Z) = Arkusz.Name  ' wpisuję do tablicy
        Z = Z + 1  'licznik argumentu tablicy
    
    End If
Next

' no i teraz mam problem jak się odnieść do tej tablicy
'sugerując się nagranym makrem to tak jak poniżej, ale niestety nie, więc proszę o pomoc
'próbowałem zargumentem i pętlą i owszem zaznaczał wszytkie po kolei ale wszytkie razem nie.

Sheets(TablicaArkuszy).select  ' to nie działa ???

end sub