Hi Dave

Warning:

Sub Macro1()
Dim ShapeName As Shape

For Each ShapeName In ActiveSheet.Shapes
ActiveSheet.Shapes(ShapeName.Name).Delete
Next ShapeName
End Sub

See this page why
http://www.rondebruin.nl/controlsobjectsworksheet.htm



--
Regards Ron de Bruin
http://www.rondebruin.nl



"Dave O" wrote in message ups.com...
I've seen that "stacking" thing before. This is a quick and dirty macro
that should delete images on your screen.

Sub Macro1()
Dim ShapeName As Shape

For Each ShapeName In ActiveSheet.Shapes
ActiveSheet.Shapes(ShapeName.Name).Delete
Next ShapeName
End Sub

Try that on a backed up copy of your file: paste it in as a macro, and
run.