Function ShapeFindDel(RngSelect As Range, SwDel As Boolean) As Shape
Dim rng As Range, shp As Shape, FindShape As Boolean

'RngSelect.Select
    For Each shp In RngSelect.Worksheet.Shapes
        
        FindShape = False
        
        If IsProperDrawingObject(shp) Then
            Set rng = Intersect(Range(shp.TopLeftCell, shp.BottomRightCell), RngSelect)
            
            If Not rng Is Nothing Then
                If rng.Address = Range(shp.TopLeftCell, shp.BottomRightCell).Address Then
                    FindShape = True
                End If
            End If
        
            If FindShape And SwDel Then
                shp.Delete
            End If
            
            If SwDel = False And FindShape Then
                Set ShapeFindDel = shp
            End If
        End If
    Next
End Function

Private Function IsProperDrawingObject(MyShape As Shape) As Boolean
    IsProperDrawingObject = False
    On Error GoTo exit_mark
    
    Debug.Print MyShape.TopLeftCell.Address
    IsProperDrawingObject = True
    
exit_mark:
End Function