Afraid I can't follow your code or infer from it what your are trying to do.
Try and explain what you are trying to do without code, but give details.

For iSeries = 1 To .SeriesCollection.Count
Set rSeries = rPatterns.Find(What:=.SeriesCollection(iSeries).Na me)

Also, what would be the Dim for the "sr".

In one of the posts thread there's an entire routine in which sr is fully
declared like this
Dim sr As Series

In the posts only snippets of code are shown, however 'sr' as an object
variable is generally, if not always, declared As Series. In context with
'For Each sr In chts.SeriesCollection' it can only be a Series
object,(personally I wouldn't have used 'chts' to refer to a single chart).

Regards,
Peter T


"Bob Barnes" wrote in message
...
Peter T - thank you. I opened the reference.

How can I modify my code, w/ yours...?

My code...
Set rPatterns = ActiveSheet.Range("A1:H66")
With ActiveSheet.ChartObjects("Chart 1").Chart
For iSeries = 1 To .SeriesCollection.Count
Set rSeries = rPatterns.Find(What:=.SeriesCollection(iSeries).Na me)
If Not rSeries Is Nothing Then
.SeriesCollection(iSeries).Interior.ColorIndex =
rSeries.Interior.ColorIndex
End If
Next
End With

Your code....
For Each sr In chts.SeriesCollection
with sr.Interior
.pattern = 1
.ColorIndex = 23
end with
Next sr

Also, what would be the Dim for the "sr".

TIA - Bob





"Peter T" wrote:

I'm not sure what the problem is or what you are asking. However it seems
to
relate to what colorindex is applied after the 56th series. Briefly, the
'automatic' colours for series start with 17 (or 25) and are applied
sequentially, at 56 they roll over to 1. However after every 56th series
a
different grey pattern is applied giving the visual effect of a new set
of
56 colours. To prevent patterns after the 56th, apply .pattern = 1.

More here
http://tinyurl.com/nmozvo

Regards,
Peter T


"Bob Barnes" wrote in message
...
Has anyone encountered this? TIA - Bob

Sub ColorBySeriesName()
Dim rPatterns As Range
Dim iSeries As Long
Dim rSeries As Range
Set rPatterns = ActiveSheet.Range("A1:H66")
With ActiveSheet.ChartObjects("Chart 1").Chart
For iSeries = 1 To .SeriesCollection.Count
Set rSeries = rPatterns.Find(What:=.SeriesCollection(iSeries).Na me)
If Not rSeries Is Nothing Then
'Gets near end of the SeriesCollection (56th of 66) & doesn't assign
correct
'ColorIndex
.SeriesCollection(iSeries).Interior.ColorIndex =
rSeries.Interior.ColorIndex
End If
Next
End With
End Sub