Dynamically changing Border-Color of all series() to "0"

Hi,

I had to create a script that transfers data out of ascii-files into Excel-Sheets. After transfering I wanted to create a Chart with that data using VBA. So far it worked.

Now I'm stuck. I tried to change the color of all the lines to black.

For i = 2 To NewChart.SeriesCollection.count 'First DataSeries is "2"
    NewChart.SeriesCollection(c).Select
    With Selection.Border
         .ColorIndex = 1
         .Weight = xlMedium
         .LineStyle = xlContinuous
    End With
Next i

It works, but I have 190 Series in average so it takes about 5 minutes to change the color. I could draw them with permanent marker on my screen faster.

So, is it possible to speed that up?

Thank you,

Simon