Como condicionar un control de imagen en excel para Dam

Instrucciones para poner la macro en ThisWorkbook
1. Abre tu libro de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. Del lado izquierdo dice: VBAProject, abajo dale doble click a ThisWorkbook
4. Del lado derecho copia la macro

Private Sub Workbook_Open()
Range("A1") = ""
End Sub

Cambia la macro que te había enviado por esta

Private Sub Worksheet_Change(ByVal Target As Range)
'por.dam
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        If Target = "" Then
            Image1.Picture = Nothing
        Else
            foto = "C:\fotos\" & Target.Value & ".jpg"
            Image1.Picture = LoadPicture(foto)
        End If
    End If
End Sub

Que tal Dam probé la instruccion que me mandaste y me marco un error que dice:

Error en el metodo "Picture" de objeto "IImage"

a lo mejor estoy poniendo algo equivocado

¿Y en qué parte de la macro se detiene?

¿Cambiaste la imagen?

Antes la imagen se llamaba "Image1" revisa que siga teniendo el mismo nombre

La carpeta de tus fotos se llama "Fotos"

Buen dia Dam mil disculpas no se que se me paso hacer grabar o ejecutar la macro desconozco pero ya me funcione a la perfección mil Gracias excelente apoyo