Forum Discussion
Solved
Editing hyperlinks in bulk
I have a speadsheet that has the emails but only as hyperlinks. I just want to make this a plain text doc with the email addresses and don't want to have to click and edit each record individually. T...
Hi Kim,
Please try this code.
Sub GetHyperlinksAddresses()
'Written By Haytham Amairah
Dim hy As Hyperlink
For Each hy In ActiveSheet.Hyperlinks
hy.Range.Value = hy.Address
hy.Delete
Next hy
End SubRegards
Hi Kim,
Please try this code.
Sub GetHyperlinksAddresses()
'Written By Haytham Amairah
Dim hy As Hyperlink
For Each hy In ActiveSheet.Hyperlinks
hy.Range.Value = hy.Address
hy.Delete
Next hy
End Sub
Regards
Hi there. I'm wondering if you can help me. I have a similar problem - a file with hundreds of hyperlinks, pointing to the wrong server. Need to edit them all to replace server name. i.e. file:///\\jp2gottnas\Main%20Data\SHARED.....
to
file:///\\jp2gdata\Main%20Data\SHARED.....
It seems that a slight modification to your script might do the trick...
Your help would be MUCH appreciated.