Excel 2010 Chart SetSourceData 1004 error

[pocerus]

Hello,

I have a problem with an Excel application that was written in my company using Office 2003. It has always worked properly in Office 2003 but when I run it in Office 2010 I get an error message after executing the SetSourceData to apply a Range taken from a group of cells in the WorkSheet.

The error message is the following: Run-time error '1004':

Method 'SetSourceData' of object'_Chart' failed.

I have tested the following code in an Excel file in Office 2010 and 2003 and the error only comes up in Office 2010.

Sub callSetSourceData()
Dim range As Range
Dim chartt As ChartObject
Set chartt = ActiveSheet.ChartObjects("Chart 1")

On Error GoTo DelSeries:
For i = 0 To 10000
chart.Chart.SetSourceData Source:=ActiveSheet.Range("A1:FA6")
Next i


Exit Sub

DelSeries:
For Each series In chart.Chart.SeriesCollection
series.Delete
Next series
Resume Next
End Sub

Any ideas on how to solve this problem or why the behaviour of VBA/Chart has changed from one Office version to another?

Many thanks for your help