Hi Everyone,

coming forward a second time with my problem. I hope more precisely.
The following code returns an error message with new Excel.
Till that version everything worked fine.

Here is the code:

CodePosFlag = 11
'Darstellungsreihenfolge und Farbe festlegen
If Not IsNull(arrPlotOrder) Then
For i = 1 To .SeriesCollection.Count
!!!!! .ChartGroups(1).SeriesCollection(arrPlotOrder(i -
1)).PlotOrder = i !!!!!!
.ChartGroups(1).SeriesCollection(i).Border.ColorIn dex =
arrColorIndex(i)
Next i
End If



The instruction with the exclamation points does not work.

Cause we have a lot of these macros there should be another solution
than commenting this instruction out.

Any idea?

Regards

Andreas