Here is a sample. I want the series to be an array if possible. THANKS!


Sheets("Sheet6").Select
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Sheet6").Range("E12")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Sheet3!R2C1:R55C1"
ActiveChart.SeriesCollection(1).Values = "=Sheet3!R2C2:R55C2"
ActiveChart.SeriesCollection(1).Name = "=Sheet3!R1C11"
ActiveChart.SeriesCollection(2).XValues = "=Sheet3!R2C1:R55C1"
ActiveChart.SeriesCollection(2).Values = "=Sheet3!R2C12:R55C12"
ActiveChart.SeriesCollection(2).Name = "=Sheet3!R1C12"