Much faster and more direct, and will not flash with each selection of
another chart.

Sub NoSeriesBorders()
Dim chtob As ChartObject
Dim srs As Series
For Each chtob In ActiveSheet.ChartObjects
For Each srs In chtob.Chart.SeriesCollection
On Error Resume Next
srs.Border.LineStyle = xlNone
On Error Goto 0
Next
Next
End Sub

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


wrote in message
ups.com...
Attempting to remove the border for all series for all charts in my
spreadsheet. can this be modified? if so, pelase suggest how?

thanks


Sub Macro1()
'
' Macro1 Macro
' Macro recorded 4/9/2007 by b0467256
'

'
ActiveSheet.ChartObjects("Chart 10").Activate
ActiveChart.SeriesCollection(8).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlNone
End With
Selection.Shadow = False
Selection.InvertIfNegative = False
Selection.Interior.ColorIndex = xlAutomatic
End Sub