here's a simple code
Sub deletepic()
Worksheets("sheet1").Pictures.Delete
End Sub
--
davesexcel
------------------------------------------------------------------------
davesexcel's Profile:
http://www.excelforum.com/member.php...o&userid=31708
View this thread:
http://www.excelforum.com/showthread...hreadid=566094