drawing objects removed

[Guest]

In a speadsheet used by many people, there are some arrows put in using the
drawing toolbar. Some people have copied worksheets hundreds of times,
resulting in the arrows existing hundreds of times (on multiple sheets). The
only way I have found to delete them is to click on it and hit delete, and
then there are still hundreds of more times I need to repeat the task. Can I
delete all of these arrows at once, or at least not one at a time?

Thanks

 

[Don Guillett]

This might make your life happier. However, it will do ALL on the sheet.
Sub ShapesCut()
For Each S In ActiveSheet.Shapes
S.Cut
Next
End Sub

 

[Don Guillett]

How about assigning to a shortcut key or just alt f8 and select it to run

 

[Debra Dalgleish]

You can delete shapes that don't have the same name as your button. For
example:

Sub DeleteShapes()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.Name <> "MyButton" Then shp.Delete
Next shp
End Sub