Sustituir hipervínculos

Prueba con el siguiente código:

Sub CambiarHipervínculos()
Dim hvH As Hyperlink

For Each hvH In Worksheets("Hoja1").Hyperlinks 'Hoja donde están los hipervínculos
If hvH.Address = "http://www.antigua.com/" Then hvH.Address = "http://www.nueva.com/"
If hvH.TextToDisplay = "http://www.antigua.com" Then hvH.TextToDisplay = "http://www.nueva.com"
Next hvH

Set hvH = Nothing
End Sub


Tendrás que poner el nombre real de la hoja (si no es Hoja1), y sustituir las direcciones.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Marín" escribió en el mensaje news:350601c40103$e2535be0$
Hola a todos.

Tengo un libro con muchísimos hupervínculos a una
determinada web, pero ahora ha cambiado y debo sustituir
todos por la dirección nueva, ¿cómo puedo hacerlo?.

Intento con buscar y sustituir pero busca en las fórmulas
y en los comentarios pero no me encuentra los
hipervínculos.

Gracias por la ayuda.