Listar los vínculos que hay en una página web.

Saludos a todos:

Con éste código podía acceder a una página web (es la URL que tengo en la
celda "G3"):

ActiveWorkbook.FollowHyperlink Address:=Range("G3").Value, NewWindow:=True

¿Pero sabeís si existe alguna manera de obtener una lista de los enlaces,
(vínculos), que hay en dicha página web?.


Muchas gracias.

Saludos
Javier