title: Renaming multiple series on all charts on one worksheet
body: <p>I'm still a vba novice so I apologize in advance for a simple problem.</p>
  
  <p>I have about 500 charts with two series each (one is a clustered column and the other is a line).  For each chart, I'd like to rename both series and loop through all charts on the sheet. Below is the code that I started to piece together so far.</p>
  
  <pre><code>    Sub RenameSeries()
      Dim i As Integer
  
      'Loops through charts
      For i = 1 To ActiveSheet.ChartObjects.Count
          With ChartObject.Chart.SeriesCollection
              .Name(1) = "Name1"
              .Name(2) = "Name2"
      End With
      Next i
  
      End Sub
  </code></pre>
  
  <p>I'm running into trouble with the <code>With ChartObject</code> line.  I'm not sure how to iteratively select each chart, make those two changes, and move on to the next chart. Thank you in advance for reading and providing your suggestions.</p>