Cambio ubicación de los hipervinculos

hola, Ubaldo !

Mostrar la cita

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

(seria bueno si te conservas en tus mensajes originaes y regresas a comentar si los supuestos ha sido equivocados) :-(
o... por si te hubieras perdido "de vista" la propuesta en las news desde la web -?-
aqui trnscribo la propuesta a tu anterior mensaje (el mismo)

=
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