Visual Basic - ayuda para modificar codigo de visor de imagen

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