Forum Discussion
Kim Christopher
Jun 19, 2018Copper Contributor
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...
- Jun 21, 2018
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
Kim Christopher
Jun 19, 2018Copper Contributor
Yes - that just returns the "text to display" which is "Email Me" and not the address. Thanks tho.
- Damien_RosarioJun 20, 2018Silver ContributorOk I get you now. I read that you may have had it the display text as hyperlink so saving as CSV made sense.
I'm with Sergei on this one. No such feature short of some VBA code.
Best wishes Kim.
Cheers
Damien - SergeiBaklanJun 19, 2018Diamond Contributor
Hi Kim,
That's only with VBA (or third-party tools) to extract the address, not display text. Example is here https://superuser.com/questions/691116/extract-url-from-anchor-text-in-excel and you may google for more similar ones.