Hi,

Am Fri, 30 Sep 2016 22:20:02 +0100 schrieb PitchNinja:

Hi, just wondered if you by chance had had a solution regarding the
macro that could be used?

modify the strings in the code to your expected path:

Sub ChangeHyperlink()
Dim i As Long
Dim HypAlt As String
Dim HypNeu As String

'Hier alten und neuen Pfad anpassen
HypAlt = "appdata\roaming\microsoft\excel"
HypNeu = "Desktop"

For i = 1 To ActiveSheet.Hyperlinks.Count

ActiveSheet.Hyperlinks(i).Address = _
Replace(ActiveSheet.Hyperlinks(i).Address, HypAlt, HypNeu)

Next
End Sub


Regards
Claus B.
--
Windows10
Office 2016