macro to create a chart
Hi
What is your error message. Worked for me.
Tony
-----Original Message-----
what's missing so I can run it successfully.
Sub Macro5()
CHARTS.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("DATA").Range
("A1:BJ145"), PlotBy _
:=xlRows
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Values = "=DATA!
R6C2:R6C256"
ActiveChart.Location Whe=xlLocationAsNewSheet
ActiveChart.HasLegend = False
End Sub
.
|