asked on Excel Change All Hyperlinks
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\Applicatio
hyp.TextToDisplay = Replace(hyp.TextToDisplay,
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\Applicatio
however if you right click it and choose edit link this is what i see and i have tired this path as well.
..\..\hsmith\Application%2
Contract-Review-Tracker-EE.xlsm
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\Applicatio
hyp.TextToDisplay = Replace(hyp.TextToDisplay,
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\Applicatio
however if you right click it and choose edit link this is what i see and i have tired this path as well.
..\..\hsmith\Application%2
Contract-Review-Tracker-EE.xlsm
Microsoft Excel
Last Comment
Tommy Kinard
ASKER
I did that and still no luck.
ansonindustries,
It worked for me. To be sure, to be sure, Please try this...
Brian.
It worked for me. To be sure, to be sure, Please try this...
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, "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 hyp
Next sh
End Sub
Brian.
ASKER
I dont know what to tell you its not working for me. can you send me your copy?
ASKER CERTIFIED SOLUTION
THIS SOLUTION ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
use
hyp.Address = Replace(hyp.Address, "../../hsmith/Application Data/Microsoft/Excel/Contr
hyp.Address = Replace(hyp.Address, "../../hsmith/Application Data/Microsoft/Excel/Contr
ASKER
thanks. i dont know why it wont work for me. ill worry about it later. thanks again though.
also maybe you need to put the same thing into TextToDisplay
hyp.Address = Replace(hyp.Address, "../../hsmith/Application Data/Microsoft/Excel/Contr
hyp.TextToDisplay = hyp.Address
hyp.Address = Replace(hyp.Address, "../../hsmith/Application Data/Microsoft/Excel/Contr
hyp.TextToDisplay = hyp.Address
Thanks for the points and the grade.
Drop all occurrences of "file:///".
Regards,
Brian.