VBA looping through all series within all charts

Question

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.

Answer 1

Try following code:

Sub AddLastValue()
    Dim myChartObject As ChartObject
    Dim mySrs As Series
    Dim myPts As Points

    With ActiveSheet
        For Each myChartObject In .ChartObjects
            For Each mySrs In myChartObject.Chart.SeriesCollection
                Set myPts = mySrs.Points
                myPts(myPts.Count).ApplyDataLabels Type:=xlShowValue
            Next
        Next
    End With

End Sub