Sub correrimagen() On Error GoTo errores rutaimagen = "C:\Users\Luis Miguel\Desktop\Buscador con imagen\FOTOGRAFIAS\" & Range("H19").Value ActiveSheet.Shapes("foto").Fill.UserPicture (rutaimagen) Exit Sub errores: rutaimagen = "C:\Users\Luis Miguel\Desktop\Buscador con imagen\FOTOGRAFIAS\nohay.jpg" ActiveSheet.Shapes("foto").Fill.UserPicture (rutaimagen) MsgBox ("No hay imagen") End Sub