macro to create a chart
 

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

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
.

macro to create a chart
 

I have some hints on charting and VBA he

http://peltiertech.com/Excel/ChartsH...kChartVBA.html

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
http://PeltierTech.com/Excel/Charts/
_______


alldreams wrote:

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