Need to check if a picture exist or not then delete

[Daxton A.]

For i = 1 To 1000
If ActiveSheet.Shapes.Range(Array("Picture " & i)).Select = True Then
Selection.Delete
Else

End If
Next i

End Sub

[mdmackillop]

I use

Sub DelPics()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If Left(shp.Name, 3) = "Pic" Then shp.Delete
Next shp
End Sub

[Daxton A.]

Works like a charm, Thanks!