Run-time error 91 Object variable or With block variable not set

[cdrako]

This was working OK when the range was A1:A3 and then iwhen range changed to B8:B18 I started getting the runtime error.

Any thoughts?


Sub ColorByCategoryLabel()
Dim rPatterns As Range
Dim iCategory As Long
Dim vCategories As Variant
Dim rCategory As Range

Set rPatterns = ActiveSheet.Range("$B$8:$B$18")
With ActiveChart.SeriesCollection(1)
vCategories = .XValues
For iCategory = 1 To UBound(vCategories)
Set rCategory = rPatterns.Find(What:=vCategories(iCategory))
.Points(iCategory).Format.Fill.ForeColor.RGB = rCategory.Interior.Color
Next
End With
End Sub

 

[Domenic]

You didn't say which error you're getting, and on which line it occurs. In any case, since your code refers to the active chart, you'll need to make sure that your chart has been selected/activated before running the code. Did you select/activate the chart before running the code?

 

[cdrako]

Sorry.. The error is in the subject line and the line is the one that starts.... .Points(iCategory)

And yes, I have chart selected when the macro is run.

 

[Domenic]

The error probably occurs because it doesn't find one (or more) of the categories within B8:B18. When the error occurs, click on "Debug". The line causing the error will then be highlighted in yellow. Then, if you place your cursor over the variable rCategory in the line above, you'll probably see that it has been assigned Nothing. And if you place your cursor over rCategory.Interior.Color, you should see the error.