Only rarely is it necessary to Select or Activate anything,

With Sheet1.ChartObjects("Chart 1").Chart
.SeriesCollection(1).Values = "=Sheet1!R3C2:R11C2"
' other stuff, eg .SeriesCollection(1).XValues =
End With

Maybe you could use a Dynamic Named Range instead, no code

Regards,
Peter T

"Libby" wrote in message
...
Hi,

I have a set of data that is linked to a chart. The range occupied by the
data is variabe and I have code that find the new range and updates the
Series Collection of the Chart.

The code for setting the series collection is similar to this in that the
chart is activated before being changed.
Sheet1.Chartobjects("Chart 1).activate
ActiveChart.SeriesCollection(1).Values = "=Sheet1!R3C2:R11C2"

This works, but the problem is that the workbook needs to be shared and
thus
the charts cannot be activated.
Does anyone know how to refer to the SeriesCollection values without
activating the chart first?

Many thanks in advance.