Help with Shape Deletion on Selection only

[Cendrinne]

Hello Pros,
I need your help again.

Been trying to rack my brain and been trying over and over again, to Delete Shapes from a document, BUT only upon Selection. NOT from the whole document.

Sub Graph_TEST_LINES_FORME_Supp_On_Select()

ActiveDocument.Select
 For i = ActiveDocument.Shapes.Count To 1 Step -1
    
    ActiveDocument.Shapes(i).Delete
 Next i

End Sub

Is there a way?

Thanks for any insights you may provide

Cendrinne