Hallo,
Du willst ja nur ein Bild einfügen, da wäre die Datei 01 korrekt.
Zu Beginn ist die Zelle festgelegt und weiter unten steht das mit dem Offset (Target.Offset(0, 0)) Es wird davon ausgegangen das der Bildname in der Zelle ausgewählt wird. Der Ordner ist oben im Code festgelegt.
Der Bildname muss bei Dir beszimmt nicht übersetz werden also ändere die Zeile
StBild = StPfad & "D" & Format(Target.Value, "00000") & ".jpg"
in
StBild = StPfad & Target.Value & ".jpg"
Gruß Hajo