Thanks for the reply... ended up using "EditGo To SpecialObjectsOK
then Delete"

Thanks again.


"Gary''s Student" wrote:

Run this small macro:

Sub no_pic()
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
sh.Delete
Next
End Sub

--
Gary''s Student - gsnu200721