Something like

Dim shp As Shape

For Each shp In ActiveSheet.Shapes
If shp.Type = msoPicture Then
shp.Delete
End If
Next shp


--

HTH

RP
(remove nothere from the email address if mailing direct)


"TEB2" wrote in message
...
How can I remove all pictures from a spreadsheet and leave only the data?