Try this macro

Sub Test()
For Each Shape In ActiveSheet.Shapes
Shape.Delete
Next
End Sub


It would be worth checking that you have not got objects protected on
the sheet.

You could also try

F5 - Special - Objects - delete key.

Martin

Martin


--
mrice


------------------------------------------------------------------------
mrice's Profile: http://www.excelforum.com/member.php...o&userid=10931
View this thread: http://www.excelforum.com/showthread...hreadid=533140