Add a new series to a chart-fail

[Rickdu]

Hi all,

I try to add bunch of data series to a chart using seriescolletion.add method. The first add is good, but for some reasons, excel doesn't pick the series lables for the following ones, instead, it named them "series 2", "series 3".
here is my code, any one has any ideas? Thanks!

Private Sub test()
Dim i As Long, mychart As ChartObject
Application.ScreenUpdating = False
Sheets(1).Activate
ActiveSheet.Shapes.AddChart (xlLine)
Set mychart = ActiveSheet.ChartObjects(1)
i = Range("B2", Range("B2").End(xlToRight)).Columns.Count
mychart.Activate
ActiveChart.SeriesCollection.Add Source:=Range(Range("A1").Offset(2, 1), Range("A1").Offset(2, i))
ActiveChart.SeriesCollection(1).XValues = Range(Range("A1").Offset(1, 2), Range("A1").Offset(1, i))
ActiveChart.SeriesCollection.Add Source:=Range(Range("A1").Offset(3, 1), Range("A1").Offset(3, i))
Application.ScreenUpdating = True
End Sub