SD Card Recovery ----How to Recover Lost Files from SD Card?: How Can I Fix

Delete Chart Series with toggle button

Hello,
I have the following code, each sub is called by a toggle button (3 in total) on on a sheet.
I would like to toggle the series on and off by pressing each toggle button .
So for the first sub, SingleChart, pressing the toggle button tglSingle puts 3 series in 3 different charts (Life,Year,Month).
Pressing the toggle again would delete the 3 series.
How can I do that?
Also, is there a way to write a more elegant code as a lot of lines are repeated throughout?
Thanks

Sub SingleChart()
    If sheetTotal.tglSingle = True Then
        With Worksheets("Charts").ChartObjects("Life Chart").Chart.SeriesCollection.NewSeries
            .Values = "=SST.xlsm!Single_Rides_Life_Chart"
            .XValues = Array(2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020)
            .Name = "=""Single rides"""
            .HasDataLabels = True
        End With
        With Worksheets("Charts").ChartObjects("Year Chart").Chart.SeriesCollection.NewSeries
            .Values = "=SST.xlsm!Single_Rides_Year_Chart"
            .XValues = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
            .Name = "=""Single Rides"""
            .HasDataLabels = True
        End With
        With Worksheets("Charts").ChartObjects("Month Chart").Chart.SeriesCollection.NewSeries
            .Values = "=SST.xlsm!Single_Rides_Month_Chart"
            .XValues = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31)
            .Name = "=""Single Rides"""
            .HasDataLabels = True
        End With
    End If
End Sub
Sub TrackChart()
    If sheetTotal.tglTrack = True Then
        With Worksheets("Charts").ChartObjects("Life Chart").Chart.SeriesCollection.NewSeries
            .Values = "=SST.xlsm!Track_Rides_Life_Chart"
            .XValues = Array(2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020)
            .Name = "=""Track Rides"""
            .HasDataLabels = True
        End With
        With Worksheets("Charts").ChartObjects("Year Chart").Chart.SeriesCollection.NewSeries
            .Values = "=SST.xlsm!Track_Rides_Year_Chart"
            .XValues = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
            .Name = "=""Track Rides"""
            .HasDataLabels = True
        End With
        With Worksheets("Charts").ChartObjects("Month Chart").Chart.SeriesCollection.NewSeries
            .Values = "=SST.xlsm!Track_Rides_Month_Chart"
            .XValues = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31)
            .Name = "=""Track Rides"""
            .HasDataLabels = True
        End With
    End If
End Sub
Sub RacesChart()
    If sheetTotal.tglRaces = True Then
        With Worksheets("Charts").ChartObjects("Life Chart").Chart.SeriesCollection.NewSeries
            .Values = "=SST.xlsm!Races_Rides_Life_Chart"
            .XValues = Array(2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020)
            .Name = "=""Races"""
            .HasDataLabels = True
        End With
        With Worksheets("Charts").ChartObjects("Year Chart").Chart.SeriesCollection.NewSeries
            .Values = "=SST.xlsm!Races_Rides_Year_Chart"
            .XValues = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
            .Name = "=""Races"""
            .HasDataLabels = True
        End With
        With Worksheets("Charts").ChartObjects("Month Chart").Chart.SeriesCollection.NewSeries
            .Values = "=SST.xlsm!Races_Rides_Month_Chart"
            .XValues = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31)
            .Name = "=""Races"""
            .HasDataLabels = True
        End With
    End If
End Sub

Anwsers to the Problem Delete Chart Series with toggle button

Download Error Fixer for Free Now

I suppose one method you could try would be to put a marker value in a hidden column to store whether the toggle is in the 'on' or 'off' position, you could then check for the value in that cell and add or delete the series depending on its value, updating
the value in the hidden cell to denote the new situation.

Access the files on your computer via MY COMPUTER
Under the C: drive, access the WINDOWS folder
Select the SOFTWARE DISTRIBUTION folder, followed by the DOWNLOAD folder.
Delete any files within this download folder.
If you are unable to delete these files, open the command prompt (CMD) as the administrator, and type "net stop wuauserv" into the CMD prompt window. Press ENTER. This should allow you to delete the files from step 4.
Once the files are deleted, open and run the CMD as the administrator and type "wuauclt.exe /updatenow". Press ENTER.

Recommended Method to Repair the Problem: Delete Chart Series with toggle button:

How to Fix Delete Chart Series with toggle button with SmartPCFixer?

1. Click the button to download SmartPCFixer . Install it on your computer. Run it, and it will scan your computer. The junk files will be shown in the scan result.