I've used the following in a VBA module. It wipes out all shapes in
the sheet so be sure that is what you want to do.

- John

Sub RemoveShapes()
For Each sh In ActiveSheet.Shapes
sh.Delete
Next sh
End Sub