charts.add error

[Guest]

Im trying to add in a chart using a macro and I am running into the Run-time
error '1004': Method 'Add' of object 'Sheets' failed. My code is as follows:
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("C45:G45"),
PlotBy _
:=xlRows
ActiveChart.SeriesCollection(1).XValues = "=Sheet3!R1C2:R1C8"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub

Why is this not working???? Thanks in advance for any help.

 

[Guest]

Is the workbook protected? That would prevent you from adding a chart sheet.

 

[mrice]

Which line does the debug happen on?

Martin

http://homepage.ntlworld.com/martin.rice1/