Delete Objects from a defined area X6

[knowbodynow]

I'd like to be able to select an object on one page and then delete all objects on other pages that are within the same space. I tried the following but it is not working:

Sub DeleteFromSelectedOnOtherlPages()

Dim p As Page, s As Shape, n As Integer
Dim x As Double, y As Double, w As Double, h As Double

ActiveDocument.ReferencePoint = cdrBottomLeft
ActiveDocument.Unit = cdrMillimeter

n = ActivePage.Index

ActiveDocument.selection.GetBoundingBox x, y, w, h, True

For Each p In ActiveDocument.Pages

    If p.Index <> n Then
    
        Set s = p.SelectShapesFromRectangle(x, y, w, d, True)
        If s.Shapes.Count >= 1 Then s.Delete
        
    End If

Next p

End Sub

It seems that SelectShapesFromRectangle is failing. Can anyone think of an alternative solution. Thanks.

[knowbodynow]

Found the problem with the SelectShapesFromRectangle. It should read:

Set s = ActivePage.SelectShapesFromRectangle(x, y, x + w, y + h, False)