Set ChartObj = ActiveSheet.ChartObjects.Add(Left:=100, Width:=800, Top:=75, Height:=325)
With ChartObj.Chart
.ChartType = xlLineMarkers
.SetSourceData Source:=ActiveSheet.Range("A1:D6"), PlotBy:=xlRows
Set c1 = ChartObj.Chart.SeriesCollection.NewSeries