Error while plotting multiple series on same plot

Hi there,

I'm working on excel macro which would access multiple worksheets in same workbook and plot the data from these worksheets on one plot.

The problem is it does one pass ok then I get the following error

Method 'SeriesCollection' of object '_Chart' failed.

Here is the part of my code which does the looping to plot multiple series.

For i = 1 To n
Charts(1).Activate
ActiveChart.SeriesCollection(i).XValues = Worksheets(i).Range("B33:B7848")
ActiveChart.SeriesCollection(i).Values = Worksheets(i).Range("C33:C7848")
Next i

Any help would be appreciated !

Thanks,