Hi

I am creating 7 plots in one chart and giving names to the plots for identification. I have written the following code for 7 plots and able to give the name for first 6 plots, but for 7th plot giving the following error: Run-time error '1004': Unable to set the Name property of the Series class.

Can any body help me on this? 

           nnn=4
           ActiveChart.SeriesCollection.NewSeries
           ActiveChart.SeriesCollection(1).XValues = Range(Sheets("Sheet1").Cells(5, 1), Sheets("Sheet1").Cells(4 + nnn, 1))
           ActiveChart.SeriesCollection(1).Values = Range(Sheets("Sheet1").Cells(5, 2), Sheets("Sheet1").Cells(4 + nnn, 2))
           ActiveChart.SeriesCollection(1).Name = "" & CStr(T1) & "- T1"
           ActiveChart.SeriesCollection.NewSeries
           ActiveChart.SeriesCollection(2).XValues = Range(Sheets("Sheet1").Cells(5, 5), Sheets("Sheet1").Cells(4 + nnn, 5))
           ActiveChart.SeriesCollection(2).Values = Range(Sheets("Sheet1").Cells(5, 6), Sheets("Sheet1").Cells(4 + nnn, 6))
           ActiveChart.SeriesCollection(2).Name = "" & CStr(T2) & "- T2"
           ActiveChart.SeriesCollection.NewSeries
           ActiveChart.SeriesCollection(3).XValues = Range(Sheets("Sheet1").Cells(5, 1), Sheets("Sheet1").Cells(4 + nnn, 1))
           ActiveChart.SeriesCollection(3).Values = Range(Sheets("Sheet1").Cells(5, 3), Sheets("Sheet1").Cells(4 + nnn, 3))
           ActiveChart.SeriesCollection(3).Name = "" & CStr(T1) & "- T1"
           ActiveChart.SeriesCollection.NewSeries
           ActiveChart.SeriesCollection(4).XValues = Range(Sheets("Sheet1").Cells(5, 5), Sheets("Sheet1").Cells(4 + nnn, 5))
           ActiveChart.SeriesCollection(4).Values = Range(Sheets("Sheet1").Cells(5, 7), Sheets("Sheet1").Cells(4 + nnn, 7))
           ActiveChart.SeriesCollection(4).Name = "" & CStr(T2) & "- T2"
           ActiveChart.SeriesCollection.NewSeries
           ActiveChart.SeriesCollection(5).XValues = Range(Sheets("Sheet1").Cells(5, 1), Sheets("Sheet1").Cells(4 + nnn, 1))
           ActiveChart.SeriesCollection(5).Values = Range(Sheets("Sheet1").Cells(5, 4), Sheets("Sheet1").Cells(4 + nnn, 4))
           ActiveChart.SeriesCollection(5).Name = "" & CStr(T1) & "- M1"
           ActiveChart.SeriesCollection.NewSeries
           ActiveChart.SeriesCollection(6).XValues = Range(Sheets("Sheet1").Cells(5, 5), Sheets("Sheet1").Cells(4 + nnn, 5))
           ActiveChart.SeriesCollection(6).Values = Range(Sheets("Sheet1").Cells(5, 8), Sheets("Sheet1").Cells(4 + nnn, 8))
           ActiveChart.SeriesCollection(6).Name = "" & CStr(T2) & "- M2"
           ActiveChart.SeriesCollection.NewSeries
           ActiveChart.SeriesCollection(7).XValues = Range(Sheets("Sheet1").Cells(5, 1), Sheets("Sheet1").Cells(4 + nnn, 1))
           ActiveChart.SeriesCollection(7).Values = Range(Sheets("Sheet1").Cells(5, 9), Sheets("Sheet1").Cells(4 + nnn, 9))
           ActiveChart.SeriesCollection(7).Name = "CHANGE"
Please check the above code and let me know the solution. Thanks in advance.