Hi Corey,

Try:

'=============
Public Sub Tester()
Dim SHP As Shape

For Each SHP In ActiveSheet.Shapes
With SHP
If .Type = msoPicture Then
.Delete
End If
End With
Next SHP
End Sub
'<<=============



---
Regards,
Norman



"Corey" wrote in message
...
ActiveSheet.Pictures.Delete

I need to modify the above so that it does not include all the
commandbuttons, but how?
I need commandbuttons and not a forms - button as the code needs to be
exportable to other files and to take the code with them.

Any ideas?
Corey....