can't update chart series unless its activated

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

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

> 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