macro to create a chart

[alldreams]

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 Where:=xlLocationAsNewSheet
ActiveChart.HasLegend = False
End Sub

 

[acw]

Hi

What is your error message. Worked for me.

Tony

 

[Jon Peltier]

I have some hints on charting and VBA here:

http://peltiertech.com/Excel/ChartsHowTo/QuickChartVBA.html

- Jon