I want to delete the circles

[HESHAM63]

HI
This code deletes all the circles in sheet

Sub RemoveCircles1()
    Dim shp As Shape, D As Integer
    For Each shp In ActiveSheet.Shapes
      If shp.AutoShapeType = msoShapeOval Then shp.Delete
    Next shp
End Sub

I want when I press the button deletes only circle in the active cell
Thanks

 

[p45cal]

Are circles all sized so that they completely fit within a single cell (not all circles in the same cell, of course)?