Hi.

Along a similar line.
I built this code to delete shapes within a given range.

Setting cDeleteOnTouch to True has a different effect.
ie. Range is just touching or range fully covers shape?

Sub test()
    Const cDeleteOnTouch As Boolean = False
    Dim rng As Range, shp As Shape, rngSelect As Range, blnDelete As Boolean

    Set rngSelect = Selection

    For Each shp In ActiveSheet.Shapes
        blnDelete = False
        Set rng = Intersect(Range(shp.TopLeftCell, shp.BottomRightCell), rngSelect)
        If cDeleteOnTouch Then
            If Not rng Is Nothing Then blnDelete = True
        Else
            If Not rng Is Nothing Then
                If rng.Address = Range(shp.TopLeftCell, shp.BottomRightCell).Address Then blnDelete = True
            End If
        End If

        If blnDelete Then
            MsgBox "delete " & shp.Name
            'shp.Delete
        End If
    Next
End Sub