Error at end of loop

[andrewb90]

I have this code that deletes objects all with the same name, but once it gets to the end I get an error. Is there a way to either:
A - stop the error from popping up at the end of the code. or
B - Just have the code fade and delete all the objects at the same time

Do While ActiveSheet.Shapes("lologo1").Visible = True

    With ActiveSheet.Shapes("lologo1")
        rep_countB = 0
        Do
        DoEvents
        ActiveSheet.Shapes.Range(Array("lologo1")).Select
        Selection.ShapeRange.SoftEdge.Radius = Selection.ShapeRange.SoftEdge.Radius + 3
            rep_countB = rep_countB + 1
            timeoutq (0.01)
    Loop Until rep_countB = 6
        ActiveSheet.Shapes.Range(Array("lologo1")).Delete


    End With
    
Loop

 

[StephenCrump]

Sorry, I didn't notice the bit about multiple shapes with the same name. It looks like a design flaw to allow this, and not provide a direct way to count them.

So a blunter instrument than I'd like:

Const INC = 3

On Error GoTo EndLoop
Do
    With ActiveSheet.Shapes("lologo1")
        For i = .SoftEdge.Radius To 99 Step INC
            .SoftEdge.Radius = i
            timeoutq (0.01)
        Next i
        .Delete
    End With
Loop

EndLoop:

'...