Hi Corey,

Try:

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

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


---
Regards,
Norman



"Corey" wrote in message
...
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....