Change series name in all charts on a worksheet

Question

I am trying to loop through each chart on a single worksheet and rename the 3rd series:

With Sheets(\"Actual Traded Points\")
    For Each Chart In .ChartObjects         


        

Answer 1

You are actually looping through the ChartObjects, not the Charts. Try:

For Each co In .ChartObjects
    co.Chart.SeriesCollection(3).name = "Actual Traded Points"
Next co