On Fri, 21 Mar 2008 10:15:43 -0400, "Jon Peltier"
wrote:

Ron -

I think that's what he says already works.

<xx (sound of hand slapping forehead). Of course, I misread.

This seems to work in 2007:

-------------------
Sub foo()
Dim oSeries As Object
Dim oMychart As Chart
Set oMychart = Worksheets("sheet1").ChartObjects(1).Chart
Set oSeries = oMychart.SeriesCollection("C1")
Debug.Print oSeries.Name
End Sub
----------------------------

Where "C1" is a valid name.
--ron