All I am trying is to set the color of the graph line:

With Charts("Ranks")
For i = 1 To 18
CurT = GrData.Cells(i, 1)
.SeriesCollection(i).Border.ColorIndex = TakimR.Cells(CurT, 5)
Next i
End With

Excel crashes when the fourth line above executes (when file is recovered
the line color for the first series is set correctly, so I guess it crashes
after executing). Same thing happens when I try to set Border.Weight as
well. On the other hand, Border.Color can be set without any crashes.

I tried including .clearformats before the problem line, but did not help.

Can anyone help me with this problem? I can at least do the color part if
some one could tell me how to convert ColorIndex to a color number.

Thanks,
Hakan