[kapetang]

Καλησπέρα

Νικόλα, μπορείς να χρησιμοποιήσεις τον παρακάτω κώδικα:

Sub EditHyperlink()

    Dim hLink As Hyperlink

    'Πατρικός του τελικού φακέλου που θα αλλάξει
    Const strOld As String = "C:\Users\Admin\Desktop\"

    'Νέος πατρικός του τελικού φακέλου
    Const strNew As String = "F:\"

    On Error GoTo errHandler
    If Dir(strOld, vbDirectory) <> "" And Dir(strNew, vbDirectory) <> "" Then
        Application.ScreenUpdating = False
        For Each hLink In ActiveSheet.Hyperlinks
            hLink.Address = Replace(hLink.Address, strOld, strNew)
            hLink.TextToDisplay = Replace(hLink.TextToDisplay, strOld, strNew)
        Next
        MsgBox "Οι αλλαγές ολοκληρώθηκαν"
    Else
        MsgBox "Κάποιος από τους πατρικούς φακέλους δεν υπάρχει"
    End If
exitSub:
    Application.ScreenUpdating = True
    Exit Sub
errHandler:
    MsgBox "Error #" & vbCrLf & Err.Description
    Resume exitSub
End Sub

Αφού τον αντιγράψεις σε μια λειτουργική μονάδα (Module), πρόσθεσε στο φύλλο που περιέχει τους συνδέσμους, που θέλεις να αλλάξεις, ένα κουμπί και σύνδεσέ το με τη διαδικασία EditHypelink.

Στον κώδικα πιθανόν να χρειαστεί να αλλάξεις τον πατρικό φάκελο του τελικού φακέλου σου.

Φιλικά/Γιώργος