can't update chart series unless its activated

[Woody]

I'm trying to update the name a series refers to in code. I tried to do it
like this:

Sub test()
Dim sACWPNamedRange

sACWPNamedRange = "'" & ActiveSheet.Name & "'!" & "ACWP"

ActiveWorkbook.Names.Add Name:=sACWPNamedRange, _
RefersTo:=ActiveSheet.Range("C32:I32")

With ActiveSheet.ChartObjects("Chart 1")
.SeriesCollection(3).Values = "=" & sACWPNamedRange
End With

End Sub

The last bit there throws error '438':
Object doesn't support this property or methd.

If I activate the chart first:

Sub test()
Dim sACWPNamedRange

sACWPNamedRange = "'" & ActiveSheet.Name & "'!" & "ACWP"

ActiveWorkbook.Names.Add Name:=sACWPNamedRange, _
RefersTo:=ActiveSheet.Range("C32:I32")

ActiveSheet.ChartObjects("Chart 1").Activate
With ActiveChart
.SeriesCollection(3).Values = "=" & sACWPNamedRange
End With

End Sub

now it works! Why? I think it has something to do with the reference
returned from the ChartObjects collection...

Thanks,
woody

 

[Ed Ferrero]

Hi Woody,

Try...

With ActiveSheet.ChartObjects("Chart 1").Chart
.SeriesCollection(3).Values = "=" & sACWPNamedRange
End With

Same as previous poster, a ChartObject is not a Chart

Ed Ferrero
http://edferrero.m6.net