Do...loop error

[noj]

Hi,
Can anyone tell me why I'm getting the Runtime Error '91' "Object variable or With block variable not set" which comes up right at the end of running this code? The line in blue is the issue.

Sub Random()
Dim bulbs As ShapeRange
Set bulbs = ActiveSelectionRange
Dim Num As Integer
Num = 1
Counter = 1
Do Until Counter = bulbs.Count
With bulbs(Num).Fill
.ApplyUniformFill CreateRGBColor(255, 0, 0)
Num = Num + Int((3 * Rnd) + 2)
Counter = Counter + 1
End With
Loop
End Sub

[noj]

Never mind. I fixed it with an If Then statement. I think the code was referencing a shape that didn't exist at the end.

[runflacruiser]

Hi.
Yea... Looks like nothing was selected so the shaperange index wasn't set to a shape.
~John