Abrir la dirección de una carpeta 2

Te anexo la macro

Sub AbrirImagen()
'Por.Dante Amor
    If Dir([A1]) <> "" Then
        ActiveWorkbook.FollowHyperlink [A1]
    Else
        MsgBox "El archivon no exite"
    End If
End Sub

Saludos.Dante Amor

viste que en la macro que me enviaste en mi pregunta anterior

Abrir la dirección de una carpeta 

me permitia seleccionar la imagen en una ventana emergente, y quisiera saber si en este caso no se puede hacer lo mismo??

en el macro anterior la imagen insertaba en el libro de excel, pero esta vez (como dice la pregunta) que abra con el visualizador de imagen al seleccionar la imagen

La macro es como pediste, la ruta y el archivo los tienes que poner en la celda A1 tal y como pusiste tu ejemplo.