Artistic text select and delete via VBA by position coordinates

Hi all,

I am trying to make a macro to find and delete several artistic text blocks regarding of their position and fill color.

In fact I want to delete all black artistic text within an area with known coordinates (x to x+100 and y to y+40).

my code do not work:

Dim sr3 As ShapeRange
Set sr3 = ActivePage.Shapes.FindShapes( _
Query:="@type ='text:artistic' and @left > {x mm} > x and @right < {(x+100) mm})")

sr3.Delete

Thank you very much