Creating Multiple charts in Excel

crysallis

Hi all,

i am trying to automate multiple charts by manipulating macros.

i have data on 17 different sheets and wish to create a chart for the same data range in each sheet.

Problem is i keep getting run time error - 438, 'object dosen't support this property or method'

Any ideas?

Thanks..

P.S.

here is my code

Sub Macro1()
'
' Macro1 Macro
'

'
Dim i As Integer
For i = 1 To 17

Columns("B:G").Select
Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData Source:=Sheets(i).Range("B1:G673"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
Next i

End Sub

Nov 1 '06 #1