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...

excel

Formulas and Functions

Macros and VBA

Haytham Amairah

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 Sub

Regards

Kim Christopher

Copper Contributor

Jun 19, 2018

Yes - that just returns the "text to display" which is "Email Me" and not the address. Thanks tho.

Damien_Rosario

Silver Contributor

Jun 20, 2018

Ok 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

Forum Discussion

Editing hyperlinks in bulk

Resources