>>975
具体的には
activesheet.Shapes.range("Button 1").delete


For Each eShape In ActiveSheet.Shapes
eShape.Delete
Next

を入れとく