Visual Basic - macro en excel para pegar imagenes

hola
tengo un problemita espero puedan ayudarme y se los agradecere

necesito hacer una macro en excel que me mande una imagenes que estan en el mismo libro,
en la hoja 1 tengo espacios donde el usuario debe escribir un numero y en la hoja 2 tengo las imagenes (36) y si el usuario pone un numero (1 al 36) me debe de mostrar la imagen que tenga ese numero

Te paso a contar Karen lo que hice.
Vamos a suponer que en la hoja 2 tenemos 4 imagenes.



Function MostrarPicture(Numero As Integer)
If Numero < Sheet2.Shapes.Count Then ' verifica que el numero no sea mayor a las imagenes
Sheet2.Shapes(Numero).Select ' selecciono la imagen segun el numero
Selection.Copy ' copio la seleccion
Sheets("Sheet1").Select ' me paso a la hoja 1
Range("B2").Select ' selecciono la celda B2
ActiveSheet.Paste 'copio la imagen en la celda B2

Else
MsgBox "El numero de imagen no existe"
End If
End Function


Bueno aca un ejemplo de como llamarias a la funcion
Sub arranca()
MostrarPicture (3)
End Sub

Cualquier cosa avisame que lo vemos, no es dificil.

saludos.-