Delete All Shapes in VBA

Sub deleteShapes()

   For i = ActiveDocument.Shapes.Count To 1 Step -1

     ActiveDocument.Shapes(i).Delete

   Next i
End Sub