Cambio de ubicación de los hipervinculos

hola, Ubaldo !

... una hoja... hay un momton de casillas... hipervinculos a... documentos... en una determinada carpeta
... Por necesidades logisticas he tenido que cambiar de ubicacion la carpeta donde estaban
... Como puedo... actualizar de una sola vez todos los hipervinculos para que apunten a la nueva ubicacion?

prueba con una macro +/- como la siguiente y...
si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Sub CambiarCarpetaHipervinculos()
Dim Antes As String, Ahora As String, Salto As Hyperlink
Antes = "pon aqui la ruta a la ubicacion ANTERIOR de los documentos"
Ahora = "por aqui la ruta a la ubicacion ACTUAL de los documentos"
For Each Salto In ActiveSheet.Hyperlinks
If InStr(1, Salto.Address, Antes, 1) Then
If Val(Application.Version) > 8 Then _
If Salto.TextToDisplay = Salto.Address Then Salto.TextToDisplay = Ahora
Salto.Address = Application.Substitute(LCase(Salto.Address), LCase(Antes), Ahora)
End If
Next
End Sub