Solved: Chart Format

[FrymanSMU]

I've got a softball I wanted to lob at someone, your help is greatly appreciated.

I have a pivot chart that I am trying to refomat but I keep getting a run-time error "438" object doesn't support his property or methd.


Sub ChartColor()
'On Error GoTo Exits
Dim i As Long: i = 1
Dim c As Variant: c = 17
Do
With Sheets("Menu").ChartObjects("Chart 2").SeriesCollection(1).Interior
.ColorIndex = c
.Pattern = xlSolid
i = i + 1
c = c + 1
End With
Loop Until c = 33
Exits:
End Sub

[Bob Phillips]

Sub ChartColor()
'On Error GoTo Exits
Dim i As Long: i = 1
Dim c As Variant: c = 17
Do
With Sheets("Menu").ChartObjects("Chart 2").Chart.SeriesCollection(1).Interior
.ColorIndex = c
.Pattern = xlSolid
i = i + 1
c = c + 1
End With
Loop Until c = 33
Exits:
End Sub

[FrymanSMU]

I knew it would be simple, that worked. Thanks!

-Rich