image controlbox werkt niet naar behoren

[Lèchajiém]

Hoi beste mensen,

Ik heb een spelers data base in elkaar geknutseld met behulp van codes die ik hier heb gevonden en heb aangepast met veel hulp van deze site.
Het gaat over een 200/250 spelers ongeveer.
ik moet zeggen dat ik redelijk tevreden ben over hoe het werkt.

ik creeer dus een tab voor iederen speler met daarin een image controlbox
Nu pakt hij een paar fotoos wel maar de meeste niet ( ze staan in de dir en de namen kloppen ook ook de code staat in het blad alles gechecked )
de code die ik gebruik heb ik op dit forum gevonden is er misschien iets wat ik mis ??

code :

Private Sub Worksheet_Change(ByVal Target As Range)
Const PictDir As String = "C:\spelersdatabase\foto\"
If Target.Address = "$A$1" Then
If Not Dir(PictDir & Target & ".jpg") = vbNullString Then
Image1.Picture = LoadPicture(PictDir & Target & ".jpg")
Else
Image1.Picture = LoadPicture(PictDir & "geen_foto.jpg")
End If
End If

End Sub

met vriendelijke groet Lechie

 

[Lèchajiém]

Ik heb het gevonden.

Het ging niet om die code maar om de waarde die naar A1 werd gekopieerd.
Ben wat aan het futselen gegaan en toe kwm ik er achter.

In ieder geval bedankt mensen.