Hallo Erik,
probiere es mal mit folgendem Makro. Passe darin zuerst den alten Teil des Links und den neuen Teil de Links an:
Sub Test()
Dim i As Long
Const strOld = "C:\Users\claus\Desktop"
Const strNeu = "E:\Claus"
With ActiveSheet
For i = 1 To .Hyperlinks.Count
.Hyperlinks(i).Address = _
Replace(.Hyperlinks(i).Address, strOld, strNeu)
Next
End With
End Sub
Claus