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