B Bob Phillips Mar 8, 2005 #2 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)
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)