Macros para BUSCAR imágenes con EXCEL

[@grupodeformacionadministra4080]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\FOTOS\" & Sheets("FICHA COMPARATIVA").Range("A2").Value& & (".jpg"))
If Err = 53 Then
Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\FOTOS\" & Sheets("FICHA COMPARATIVA").Range("B2").Value& & (".jpg"))
End If
On Error Resume Next
Image2.Picture = LoadPicture(ActiveWorkbook.Path & "\FOTOS\" & Sheets("FICHA COMPARATIVA").Range("C2").Value& & (".jpg"))
If Err = 53 Then
Image2.Picture = LoadPicture(ActiveWorkbook.Path & "\FOTOS\" & Sheets("FICHA COMPARATIVA").Range("D2").Value& & (".jpg"))
End If
End Sub