VBA, который добавляет или удаляет «бюджетную» серию из всех графиков в массиве

Question

Я довольно новичок в этом, но я пытаюсь сделать тумблер, который добавит или удалит «бюджетную» серию из всех диаграмм в MyArray.Сам по себе сабвуфер работает нормально, но частные сабвуферы, к которым он обращается, похоже, не действуют.Следует учитывать, что «бюджетная серия» не всегда называется просто «бюджет», например, «валовая прибыль бюджета» и т. Д.любая помощь будет потрясающей.спасибо, ребята

`Sub ToggleBudget()

If Sheets("Dashboard").Shapes("Button 6").TextFrame.Characters.Text = "Add Budget" Then
    Sheets("Dashboard").Shapes("Button 6").TextFrame.Characters.Text = "Remove Budget"
    Call Budget_On
ElseIf Sheets("Dashboard").Shapes("Button 6").TextFrame.Characters.Text = "Remove Budget" Then
    Sheets("Dashboard").Shapes("Button 6").TextFrame.Characters.Text = "Add Budget"
    Call Budget_Off
End If
Sheets("Dashboard").Select
Cells(1, 1).Select

End Sub


Private Sub Budget_On()

Dim MyArray As Variant
MyArray = Array("Company KPI", "People KPI", "Sales & Mkg KPI", "Service & Operations KPI", "Seasonality & Industry Comp")
        For Each ChartObject In MyArray
                For Each SeriesCollection In Charts
                    For Each Series In SeriesCollection
                        If Series.Name Like "*Budget*" Then
                        Chart.SeriesCollection(Series.Name).IsFiltered = True
                        End If
                    Next Series
               Next SeriesCollection
    Next ChartObject

End Sub


Private Sub Budget_Off()

Dim MyArray As Variant
MyArray = Array("Company KPI", "People KPI", "Sales & Mkg KPI", "Service & Operations KPI", "Seasonality & Industry Comp")
        For Each ChartObject In MyArray
                For Each SeriesCollection In Charts
                    For Each Series In SeriesCollection
                        If Series.Name Like "*Budget*" Then
                        Chart.SeriesCollection(Series.Name).IsFiltered = False
                        End If
                    Next Series
               Next SeriesCollection
    Next ChartObject

End Sub`