Cargar varias imagenes con boton numerico

Visor · el 1 de septiembre

Estimados amigos del foro acudo a ustedes nuevamente para averiguar como debo hacer para poder cargar varias imágenes que están en una carpeta en esta carpeta siempre se ordenan sea alfabeticamente o numéricamente si es por código, lo cierto es que si pulso un botón de control de desplazamiento numérico pueda cargarse varias imagens (que en realidad es cada archivo jpg) tanto como de 100 en 100 pues podría tener 1000 o mas imágenes. Subo unas imágenes de las que menciono y el código que uso pero que solo me muestra una misma imagen para explicarme mejor.

En esta es obvio que se muestre una imagen pues el la celda activa solo activa una imagen según el nombre en la que esta posicionado ( ver Cargar varias imagen.jpg)

Pero me gustaría usar el botón de control de desplazamiento numérico para ir mostrando los 100 siguientes o los 100 anteriores

Este es el código

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next
If Not Intersect(Target, Range("A2:A10")) Is Nothing Then
    Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\imagenes\" & Target & ".jpg")
    Image2.Picture = LoadPicture(ActiveWorkbook.Path & "\imagenes\" & Target & ".jpg")
    Image3.Picture = LoadPicture(ActiveWorkbook.Path & "\imagenes\" & Target & ".jpg")
    Image4.Picture = LoadPicture(ActiveWorkbook.Path & "\imagenes\" & Target & ".jpg")
    Image5.Picture = LoadPicture(ActiveWorkbook.Path & "\imagenes\" & Target & ".jpg")

End If
End sub

Tambien lo puse asi

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

If Not Intersect(Target, Range("A2:A10")) Is Nothing Then
    Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\imagenes\" & Target & ".jpg")
End If

If Not Intersect(Target, Range("A2:A10")) Is Nothing Then
    Image2.Picture = LoadPicture(ActiveWorkbook.Path & "\imagenes\" & Target & ".jpg")
End If
If Not Intersect(Target, Range("A2:A10")) Is Nothing Then
    Image3.Picture = LoadPicture(ActiveWorkbook.Path & "\imagenes\" & Target & ".jpg")
End If
If Not Intersect(Target, Range("A2:A10")) Is Nothing Then
    Image4.Picture = LoadPicture(ActiveWorkbook.Path & "\imagenes\" & Target & ".jpg")
End If

If Not Intersect(Target, Range("A2:A10")) Is Nothing Then
    Image5.Picture = LoadPicture(ActiveWorkbook.Path & "\imagenes\" & Target & ".jpg")
End If

End Sub

Estos códigos están en la hoja, Claro solo se muestra una sola imagen

Pero en la carpeta tengo varias imágenes en la carpeta, ( en lo que subo solo muestro unas cuantas para explicarme)

Gracias anticipadas por el tiempo que les tome en brindarme su apoyo

Visor · el 6 de septiembre

Veamos parece que no se podría encontrar la solución sin archivo ejemplo, allí subo una carpeta que contiene el archivo excel con la macro y otra carpeta con archivos de imágenes jpg.

En el excel al hacer click en el botón flecha arriba se deberá observar 5 imágenes diferentes y si vuelvo a hacer click deberé ver otras 5 diferentes hasta terminar la lista de archivos pero si pulso la flecha hacia abajo deberá regresar.

Como esta ahora solo se ven 5 imágenes iguales osea se observa solo un archivo

Aqui la carpeta de archivo

https://app.box.com/s/mz88sfndcqncmlkptvmvq9rkw22cbpdg