title: VBA looping through all series within all charts
body: <p>I'm having an issue with the looping through of several charts in my VBA code. I'm 99.7% sure that this is a really easy and quick fix but my brain isn't working today.</p>
  
  <p>I want the code to loop through every chart on the ActiveSheet, and for every data series that the chart contains I want it to add the last value of the series. In my example I have 9 charts, each with 3 series in them (bound to change, some have 2 but I digress).</p>
  
  <p>I have the following code</p>
  
  <pre><code>Sub AddLastValue()
  Dim myChartObject As ChartObject
  Dim myChart As Chart
  Dim mySrs As Series
  Dim myPts As Points
  
  With ActiveSheet
  For Each myChartObject In .ChartObjects
      For Each myChart In .Chart
          For Each mySrs In .SeriesCollection
              Set myPts = .Points
              myPts(myPts.Count).ApplyDataLabels Type:=xlShowValue
          Next
      Next
  Next
  End With
  
  End Sub
  </code></pre>
  
  <p>If I remove the looping code and just do a </p>
  
  <pre><code>Set myPts = ActiveSheet.ChartObjects(1).Chart. _
      SeriesCollection(1).Points
  myPts(myPts.Count).ApplyDataLabels type:=xlShowValue
  </code></pre>
  
  <p>Then it works for that specific chart and series, so I'm positive it is the looping that I'm messing up.</p>
  
  <p>Could someone tell me where I mess up the looping code?</p>