Farbe ändert sich nicht in Chart Legende mit

Sub ColorBalken()
Dim cht As ChartObject
Dim i As Integer
Dim vntValues As Variant
Dim s As String
Dim myseries As Series
For Each cht In ActiveSheet.ChartObjects
For Each myseries In cht.Chart.SeriesCollection
If myseries.ChartType  xlColumnStacked Then GoTo SkipNotColumnStacked
s = Split(myseries.Formula, ",")(2)
vntValues = myseries.Values
For i = 1 To UBound(vntValues)
With myseries.Points(i).Format.Fill
.Solid
If Range(s).Cells(i).Interior.ColorIndex = -4142 Then
.Visible = False
Else
.Visible = True
.ForeColor.RGB = Range(s).Cells(i).Interior.Color
End If
End With
Next i
SkipNotColumnStacked:
Next myseries
Next cht
End Sub