Excel - Modificar hipervinculos de todas las celdas-

[danielico3]

Buenos dias, resulta que tengo un excel con muchas celdas y cada una de ellas tiene un vinculo a una web, ejemplo:

http//laweb/esta/la_una.php

Yo necesito modificar este enlace por este otro:

http//nuevo_enlace/otro/la_una.php

Solo tengo que cambiar la primera del enlace... he estado buscando información y se ve que microsoft excel solo deja modificar los hipervinculos manualmente celda por celda... yo tengo miles de celdas, podria estar semanas para realizar este cambio.

quizas con macros pueda solucionar el problema:

Sub modifica_viculos()

Dim hpVinc As Hyperlink
Dim strOldAddress As String, strNewAddres As String

strOldAddress = "D:\My Documents\blog\"
strNewAddres = "D:\My Documents\algodistinto\"

For Each hpVinc In ActiveSheet.Hyperlinks
hpVinc.Address = Replace(hpVinc.Address, strOldAddress, strNewAddres)
Next

End Sub


**********************************************

Pero me da error al ejecutar el macro, sabeis si hay alguna otra forma de hacer esto o donde esta el error de esta macro yo no se mucho de macros...

Muchas gracias
Dani