Display the last point's data label in series with VBA

ok, i found one procedure, it works

Sub xd()

Dim ws As Worksheet
Set ws = Sheets("charts")


For i = 1 To ws.ChartObjects.Count


ws.ChartObjects(i).Activate


For ii = 1 To ActiveChart.SeriesCollection.Count


For iii = 1 To ActiveChart.SeriesCollection(ii).Points.Count

lastPoint = ActiveChart.SeriesCollection(ii).Points.Count
If ActiveChart.SeriesCollection(ii).DataLabels(iii).ShowValue Then
ActiveChart.SeriesCollection(ii).DataLabels(iii).ShowValue = False
End If

ActiveChart.SeriesCollection(ii).DataLabels(lastPoint).ShowValue = True


Next iii 'point

Next ii 'serie



Next i 'graph

End Sub