Charts(3).SetSourceData Not Working

[Trip]

Hi All,

I'm a bit confused here. If I run the command "msgbox
ActiveChart.Name" I get back "Sheet1 Chart 3".

Yet, if I run the command "Charts(3).SetSourceData..." I get a
"subscript out of range" error. This is true if I try 1, 2, 3, 4, 5,
and so on. However, if I run "ActiveChart.SetSourceData..." it works,
thus I know the issue is with the "Charts(3)" portion of the line.

What am I doing wrong?

Thanks!

Trip

 

[Peter T]

Hi Trip

The parent of a chart on a worksheet is a ChartObject

Dim chtObj as ChartObject
Dim cht as Chart

Set chtobj = ActiveSheet.Chartobjects("Chart 3")
Set cht = chtobj.Chart

msgbox chtobj.Name & vbcr & cht.Name

cht..SetSourceData...

BTW, if you did not "Activesheet.Charts(3)" but
Activesheet.Chartobjects(3).Chart,
you would pick up the 3rd Chartobject's chart on the sheet according to its
index order, which is not necessarily related to the '3' in its name.

Regards,
Peter T