I have the following code however it does not change the hyper link
Sub changeHYperlinks()
Dim hyp As Hyperlink
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
For Each hyp In sh.Hyperlinks
hyp.Address = Replace(hyp.Address, "file:///C:\Documents and Settings\hsmith\Application Data\Microsoft\Excel", "file:///\\corp-win\DATA\Legal")
hyp.TextToDisplay = Replace(hyp.TextToDisplay, "file:///C:\Documents and Settings\hsmith\Application Data\Microsoft\Excel", "file:///\\corp-win\DATA\Legal")
Next hyp
Next sh
End Sub
I have tried it without the "file:///" but still no luck. Attached is a copy of my work. Please try to make it work.
If you hover of the link it states "file:///C:\Documents and Settings\hsmith\Application Data\Microsoft\Excel"
however if you right click it and choose edit link this is what i see and i have tired this path as well.
It worked for me. To be sure, to be sure, Please try this...
Sub changeHYperlinks()Dim hyp As HyperlinkDim sh As WorksheetFor Each sh In ActiveWorkbook.Sheets For Each hyp In sh.Hyperlinks hyp.Address = Replace(hyp.Address, "C:\Documents and Settings\hsmith\Application Data\Microsoft\Excel", "\\corp-win\DATA\Legal") hyp.TextToDisplay = Replace(hyp.TextToDisplay, "C:\Documents and Settings\hsmith\Application Data\Microsoft\Excel", "\\corp-win\DATA\Legal") Next hypNext shEnd Sub
Drop all occurrences of "file:///".
Regards,
Brian.