My Code:
Sub PieSourceData()
Sheets("ReportSummary").ChartObjects("Chart 5").Activate
Sheets("DataSheet").Select
ActiveChart.SetSourceData Source:=Range("A245:B249")
End Sub
It is failing at the line :
ActiveChart.SetSourceData Source:=Range("A245:B249")