select ALL Shapes

Hello,
I am looking the way to select all the shapes present in a sheet.
Thx in advance,
David

Sub select_all_Ovals()
    ActiveSheet.Shapes.ALL.Select
    Selection.Delete
End Sub