Alle Objekte in einem Bereich löschen

Sub KillShapes1()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
shp.Delete
Next shp
End Sub

Ich möchte aber nur die Objekte (Bilder, Kreise, Rechtecke, Linien) innerhalb eines bestimmten Bereiches ("a7:AO44") löschen.
Über If/Then und Ausschluß der nicht zu löschenden bin ich nicht weitergekommen.
Kann man das Löschen auch für einen bestimmten Bereich auslegen?
Gruß
Jürgen