Hi,

I currently have a chart with dataseries that are named "Smith",
"Jones" "Brown" etc. These names are changeable depending on data in
the sheet.

For example dataseries 1 name is cell A10. If cell A10 says "Jones"
then the dataseries is called Jones and if it says "Smith" then the
dataseries is called Smith.

My code is currently says this;

ActiveChart.seriescollection("SMITH").Select
With Selection.Border
.LineStyle = xlAutomatic
End With
With Selection
.MarkerStyle = xlNone
End With
End If

This works if the series is still called Smith (if cell A10 contents
are Smith). However if the series name changes to "Jones" (cell A10
contents changes to Jones) then my code doesn't work as it is referring
to a series that is no longer called Smith. How can I overcome this?
Thanks

Fill in the real sheet name in place of Sheet1 in the first line:

With ActiveChart.SeriesCollection(Worksheets("Sheet1"). Range("A10").Value)
With .Border
.LineStyle = xlAutomatic
End With
.MarkerStyle = xlNone
End With

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"keri" wrote in message
ups.com...
Hi,

I currently have a chart with dataseries that are named "Smith",
"Jones" "Brown" etc. These names are changeable depending on data in
the sheet.

For example dataseries 1 name is cell A10. If cell A10 says "Jones"
then the dataseries is called Jones and if it says "Smith" then the
dataseries is called Smith.

My code is currently says this;

ActiveChart.seriescollection("SMITH").Select
With Selection.Border
.LineStyle = xlAutomatic
End With
With Selection
.MarkerStyle = xlNone
End With
End If

This works if the series is still called Smith (if cell A10 contents
are Smith). However if the series name changes to "Jones" (cell A10
contents changes to Jones) then my code doesn't work as it is referring
to a series that is no longer called Smith. How can I overcome this?
Thanks