Dim SHP As Shape

For Each SHP In ActiveSheet.Shapes <======== How can i change this to
ALL Sheets in workbook ?
With SHP
If .Type = msoPicture Then
.Delete
End If
End With
Next SHP

Corey....
"Norman Jones" wrote in message
...
Hi Corey,

Additionally, see Ron de Bruin's discussion at:

http://www.rondebruin.nl/controlsobjectsworksheet.htm

See particularly the section entitled: 'Delete only specific shapes'


---
Regards,
Norman