How to Unhide/Make Visible multiple worksheets stored in an array ?

[Pramodpandit123]

Whenever I run the following code i get "1004 Unable to set the visible property of the worksheet class" error while making the sheets visible. But it seems to perfectly work while hiding the sheets. How can i make the sheets stored in the array visible ?
P.S -> My worbook/worksheet is also not password protected.

Sub sheets()
    Dim i As Long, c As Long
    Dim SheetArray() As String

    With ActiveSheet.ListBoxSh

        For i = 0 To .ListCount - 1
            If .Selected(i) = False Then
                ReDim Preserve SheetArray(c)
                SheetArray(c) = .List(i)
                c = c + 1
            End If
        Next i
        
        Sheets(SheetArray()).Visible = xlSheetHidden

         'SOME CODE HERE

        Sheets(SheetArray()).Visible = xlSheetVisible
            End With
End Sub

 

[rlv01]

I'm not sure you can do it that way, better to iterate through the array

    'Unhide sheets
    For I = LBound(SheetArray) To UBound(SheetArray)
            Worksheets(SheetArray(I)).Visible = xlSheetVisible
    Next I