Per VBA eingefügte Grafik automatisch bennenen?

Sub GraphicfileInZelleEinfuegen()
Dim strPfad As String
Dim strDatei As String
Dim Zeile As Long
Dim Spalte As Long
Dim wksTabelle As Worksheet
Dim shpNeu As Object
Dim Pfad As String
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.TopLeftCell.Column = 14 Then shp.Delete
Next shp
Spalte = 14
Set wksTabelle = ActiveWorkbook.Worksheets("Tabelle11")
Pfad = "C:\Users\ADMIN\Desktop\Neuer Ordner\"
strPfad = Pfad
For Zeile = 1 To 8
jFile = "Code" & Cells(Zeile, "I") & ".png"
strDatei = jFile
If Right(strPfad, 1)  "\" Then strPfad = strPfad & "\"
Set shpNeu = wksTabelle.Pictures.Insert(strPfad & strDatei)
shpNeu.Top = wksTabelle.Rows(Zeile).Top
shpNeu.Height = wksTabelle.Rows(Zeile).Height
shpNeu.Left = wksTabelle.Columns(Spalte).Left
shpNeu.Width = wksTabelle.Columns(Spalte).Width
Next
End Sub