Looped charts and worksheets as sheets unsuccessfully. Exactly what caused the errors?

Question

I tried to loop charts and sheets as variants.

Sub ShowSheets(vSheets() As Variant)

    Dim i As Long
    For i = LBound(vSheets, 1) To UBound(vSheets, 1)