Hi everyone,

I have the same error . I'm still a newbie with VBA and would appreciate if anyone can help me. Below is the code I'm working at and would be glad if anyone can tell me what's wrong:

Sub PutConditionalColorsIntoChart2()


Dim Num As Integer 


 ActiveSheet.ChartObjects("Chart 43").Activate
 ActiveChart.ChartArea.Select
 
For Num = 3 To 16 
    ActiveChart.SeriesCollection(1).Points(Num - 2).Interior.Color = Cells(Num, 3).DisplayFormat.Interior.Color


Next Num