Macro para catalogo de Imágenes integrado en el libro de Excel

Tengo este código que me ha funcionado perfectamente en la hoja (INVENTARIO):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'Por.Dante Amor
On Error Resume Next
If Not Intersect(Target, Range("H4:H1991")) Is Nothing Then
ruta = ActiveWorkbook.Path & "\IMAGENES\"
arch = Dir(ruta & Target & ".*")
nom = Left(arch, InStrRev(arch, ".") - 1)
ext = Mid(arch, InStrRev(arch, "."))
If Dir(ruta & Target & ".*") <> "" Then
Image1.Picture = LoadPicture(ruta & nom & ext)
Else
Image1.Picture = Nothing
End If
End If
If Not Intersect(Target, Range("H4:H1991")) Is Nothing Then
Image1.Visible = True
Else
Image1.Visible = False
End If
End Sub

Pero en el trabajo me piden ver, si el catálogo de imágenes puede estar en el mismo libro, tal vez en la Hoja 2, se me ocurre algo así:

                 A                             B 

1 Imagen 1 Nombre de producto 1

2 Imagen 2 Nombre de producto 2

Así hasta la celda 200 y ya no tenerla en una carpeta externa; pero que siga funcionando igual, de que cuando me posiciono en la celda del producto, en la hoja del inventario, me muestre la imagen, ora si lo que lo que deseo es tener la carpeta integrada al libro de excel.

Mi excel es 2013 con windows 10.