Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("A11:A5000")) Then
Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\partes\" & Target & ".jpg")
End If
If Intersect(Target, Range("A11:A5000")) Then
if dir(ActiveWorkbook.Path & "\partes\" & Target & ".jpg") <> "" then
Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\partes\" & Target & ".jpg")
else
Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\partes\figuranoexiste.jpg")
end if
End If