Beto, em seu Array - "A" é Igual a 2 itens "Plan1 e Plan2", na primeira vez da certo pois é usada os 2 valores, na segunda precisamos capturar cada valor dentro do Array.

Por Exemplo :
Em um Array a coleção é iniciada em 0 e você definiu dois Valores "Plan1 e Plan2", então :
"Plan1" é = 0 e "Plan2" = 1, então devemos tratar da seguinte forma:

A = Array("Plan1", "Plan2")
Worksheets(A(0)).Visible = True '0 Plan1
Worksheets(A(1)).Visible = True '1 Plan2

Se tivessemos 10 Plan, a rotina acima ficaria grande, então, para evitarmos isto, tratamos o Array com a instrução For Each capturando e tratando cada valor do Array, conforme seu exemplo, a rotina ficaria assim :

Private Sub UserForm_Initialize()
    Dim x As Variant
    Dim A As Variant
    
    A = Array("Plan1", "Plan2")
    
        For Each x In A 'Para Cada Valor dentro do Array
          Worksheets(x).Visible = False 'Oculto ou True para Exibir
        Next

End Sub

Se olhar na prorpia ajuda do Excel no VBA, terá outras opções para Visible, esta propriedade permite que o usuário ao ter acesso ao arquivo, vá no Menu / Formatar / Planilha - Exibir, se utilizar "xlSheetVeryHidden", a mesma não estará disponivel no Menu.
Agora se a intensão é manter todas Ocultas, não precisa reexibi-las ao Sair, pode deixar Ocultas mesmo, eu costumo utilizar a seguinte rotina no Evento OPEN do WorkBook :

Private Sub Workbook_Open()

Set wsInicio = Worksheets("Plan1")

On Error Resume Next
    
    Dim sht As Worksheet
    
        wsInicio.Visible = xlSheetVisible 'Força a ABA Plan1 como Visivel
        wsInicio.Activate 'Mantem a Plan principal sempre como primeira
    
    'Para Cada ABA Nome diferente de "Plan1" oculta as mesmas
    For Each sht In ThisWorkbook.Worksheets
        If sht.Name <> wsInicio.Name Then
            sht.Visible = xlSheetVeryHidden
        End If
    Next

End Sub

abraços