Imagenes asociada a una celda - Nueva Macro

Tengo este nuevo codigo, que hace lo que necesito, pero me obliga a
tener en la celda la ruta de la imagen completa, es decir: "C:\imgs
\foto1.jpg" pero como puedo modificar el codigo para que funcione con
solo tener en la celda el nombre sin la extension; "foto1" y que
aparezca inmediatamente como lo hace esta macro.


Gracias a todos,

Saludos,

Johann .

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Dir(Target.Value) = "" Or Err <> 0 Then
ActiveSheet.Shapes("Foto").Delete
Exit Sub
End If
Dim f As Object
Application.ScreenUpdating = False
With ActiveSheet
.Shapes("Foto").Delete
Set f = .Pictures.Insert(Target.Value) '//Target.Value contiene C:\imgs
\foto1.jpg
With f '//Dimensiones de la foto
.Name = "Foto"
.Left = Target.Left + Target.Width
.Top = Target.Top
.Width = 250
.Height = 250
End With
End With
Set f = Nothing
Application.ScreenUpdating = True
End Sub