Probleem met importeren variabele afbeeldingen

[Alex10x]

Wie kan mij helpen met het volgende probleem in Excel?
Ik heb een lijst met namen (in kolom A), en daar wil ik afbeeldingen bij importeren (kolom B).

Als ik onderstaande macro draai, werkt het prima totdat er een afbeelding niet bestaat.
Deze rij mag dan overgeslagen worden, maar hij neemt de afbeelding van de rij erboven.

Kan iemand mij vertellen wat ik verkeerd doe? Als de goede afbeelding niet gevonden wordt, mag het ook een "standaard" afbeelding zijn.

Sub test()

Dim name As String
Dim spath As String
Dim rng As Range
Dim i As Integer

On Error Resume Next

Set rng = Worksheets("Blad1").Cells(1, 1).CurrentRegion
spath = "C:\Mijn Documenten\Foto\"
For i = 1 To rng.Rows.Count
name = Worksheets("Blad1").Cells(i, 1).Value

ActiveSheet.Pictures.Insert(spath & name & ".jpg").Select
    With Selection
        .Top = rng(i, 2).Top
        .Left = rng(i, 2).Left
    End With
    
Next i

End Sub

 

[snb]

Sub test()
  For each cl in  sheets("Blad1").Cells(1, 1).CurrentRegion.columns(1)
    If Dir("C:\Mijn Documenten\Foto\" & cl &".jpg")<>"" then ActiveSheet.Pictures.Insert "C:\Mijn Documenten\Foto\" & cl & ".jpg",cl.offset(,1).top, cl.offset(,1).left
  Next 
End Sub

 

[Alex10x]

Top! Bedankt.