在使图表可见后使工作表可见时，可见属性失败了吗？

The following code works:

以下代码有效:

Sub ShowSheets(vSheets() As Variant)

    Dim i As Long

    'Make worksheets visible
    For i = LBound(vSheets, 1) To UBound(vSheets, 1)
        If TypeName(ThisWorkbook.Sheets(vSheets(i, 1))) = "Worksheet" Then
            ThisWorkbook.Worksheets(vSheets(i, 1)).Visible = xlSheetVisible
        End If
    Next i

    'Make chart sheets visible
    For i = LBound(vSheets, 1) To UBound(vSheets, 1)
        Debug.Print (TypeName(ThisWorkbook.Sheets(vSheets(i, 1))))
        If TypeName(ThisWorkbook.Sheets(vSheets(i, 1))) = "Chart" Then
            ThisWorkbook.Charts(vSheets(i, 1)).Visible = xlSheetVisible
        End If
    Next i

End Sub
Sub ShowS