Need to check if a picture exist or not then delete

Code:

---

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

---

I use

Code:

---

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

---

Works like a charm, Thanks!