Bilder dynamisch in Zellen-Kommentaren

Guten Tag.
Ich habe eine Youtube-video gesehen, in dem man Bilder dynamisch in Zellen-Kommentaren ablegen kann und dass als Mouse over Effekt.
Damit wollte ich auch ein wenig rumspielen, aber selbst wen ich das Makro eins zu eins abschreibe kommt bei mir der Laufzeitfehler '52': Dateiname oder -nummer falsch.

Ich habe schon versucht den Verweis starr einzutragen, aber ohne Erfolg.

Das Makro lautet wie folgt:

Sub BildInKommentarEinfügen()
Dim rngZelle As Range
Dim StrName As String

For Each rngZelle In Selection

With rngZelle

StrName = ThisWorkbook.Path & "\" & rngZelle.Value & ".png"

If Dir(StrName) > "" Then
.ClearComments
.AddComment rngZelle.Offset(0, 1).Value
.Comment.Shape.Fill.UserPicture StrName
.Comment.Shape.Fill.Transparency = 0.5
.Comment.Shape.TextFrame.Characters.Font.Size = 12
.Comment.Shape.TextFrame.Characters.Font.Bold = True
.Comment.Shape.TextFrame.Characters.Font.Color = RGB(0, 0, 255)
End If

End With

Next rngZelle

End Sub



Die Datei ist in einem Separatem Ordner mit den Bildern abgespeichert... falls das relevant sein sollte.

Vielleicht kennt ja jemand das Video oder kann mir bei dem Problem helfen.

GLG