Checkbox won't delete

I'm using this code to delete all checkboxes below a given top.

 
               With sh
                    For i = 1 To .CheckBoxes.Count
                        Set ck = Nothing
                        On Error Resume Next
                        Set ck = .CheckBoxes(i)
                        On Error GoTo HE
                        If Not ck Is Nothing Then
                            If ck.Top >= dTop Then
                                ck.Delete
                            End If
                        End If
                    Next i
                End With

No matter what I do, it always leaves one checkbox. It deletes all the others, but always leaves one.

    With ActiveSheet.CheckBoxes
        Do While .Count
            .Item(.Count).Delete
        Loop
    End With

or

    Dim v As Variant
    
    For Each v In ActiveSheet.CheckBoxes
        v.Delete
    Next v

Hi shg;

I don't want all the checkboxes deleted. Only those that are below a fixed point on the screen. The code I'm using works fine except that there is always one checkbox left below that point.

I found a solution to my problem. I named the checkboxes when I created them with a unique name pattern, then deleted all the checkboxes with that name pattern.

                With shCompare
                    For i = 1 To iMatches
                        Set ck = Nothing
                        On Error Resume Next
                        Set ck = .CheckBoxes("Match " & i)
                        On Error GoTo HE
                        If Not ck Is Nothing Then
                            ck.Delete
                        End If
                    Next i
                End With

I'm still interested in finding out why my first code doesn't work.

Generally better to loop backwards through a collection when deleting. The need for an error handler is a bit of a giveaway.

romperstomper; that's probably it. Don't know why I didn't think of it.

MarvinP - yes I tried from 0 to, didn't make any difference.