Thanks Joel. This may be a step or two ahead of my current macro ability but
gives me a chance to take it to the next level !!

"Joel" wrote:

First, it is not recommended using select. The macro recorder uses it but I
normally rewrite recorded macro not using the select. You need to select
chart which I consider a bug in VBA.


Here is recorded macro

Sub Macro1()
'
' Macro1 Macro
'

'
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("'Sheet1'!$A$4:$N$4")
ActiveChart.ChartType = xlXYScatterSmooth
End Sub


Here is my modified macro

Sub AddCharts()

With ActiveSheet
RowCount = 1
Do While .Range("A" & RowCount) < ""
LastCol = .Cells(RowCount, Columns.Count).End(xlToLeft).Column
Set ChartRange = .Range(.Range("A" & RowCount), .Cells(RowCount, LastCol))

Set MyChart = .Shapes.AddChart
MyChart.Select
With ActiveChart

.SetSourceData Source:=ChartRange
.ChartType = xlXYScatterSmooth
End With
RowCount = RowCount + 1
Loop
End With
End Sub

:

i'm new to macros(cursor only), and i want it to create and print a graph for
each row of data(about 25 columns wide). If I select the first row, how can i
have the macro keep selecting until the last row of data? Thank you, Rich