Cómo hacer Click en un hipervínculo. El evento click.

"javier" escribió en el mensaje news:

Buenas a todos.

Estaba intentando hacer click en una celda seleccionada, mediante una macro.
Yo puse así el codigo y me falla.

Sub prueba()
Range("a1").Select
ActiveCell_Click 'Falla
End Sub

Me dice que no se ha definido Sub o función ???. El Hipervínculo está bien.

Hola Javier,
examina en la ayuda el método ".Follow" y sus argumentos.
Básicamente harías así para ejecutar el hipervínculo (en caso de contener alguno) de la celda activa:

Sub prueba()
If ActiveCell.Hyperlinks.Count Then _
ActiveCell.Hyperlinks(1).Follow
End Sub


Saludos
( ! ) Respuestas precedentes en Google:
http://tinyurl.com/rkce5
( i ) Temperancia en el foro:
http://tinyurl.com/mawnn