Excel: Extract hyperlink from link

What?
A quick article on if you want to extract the link from some text you have copied off the web and into an MS Excel document.

How?
  1. Open up a new workbook.
  2. Get into VBA (Press Alt+F11)
  3. Insert a new module (Insert > Module)
  4. Copy and Paste the Excel user defined function below
    copyraw
    Sub ExtractHL()
    Dim HL As Hyperlink
    For Each HL In ActiveSheet.Hyperlinks
    HL.Range.Offset(0, 1).Value = HL.Address
    Next
    End Sub
    1.  Sub ExtractHL() 
    2.  Dim HL As Hyperlink 
    3.  For Each HL In ActiveSheet.Hyperlinks 
    4.  HL.Range.Offset(0, 1).Value = HL.Address 
    5.  Next 
    6.  End Sub 
  5. Press F5 and click “Run”
  6. Get out of VBA (Press Alt+Q)
Category: Excel :: Article: 595

Add comment

Your rating:

Submit

Credit where Credit is Due:


Feel free to copy, redistribute and share this information. All that we ask is that you attribute credit and possibly even a link back to this website as it really helps in our search engine rankings.

Disclaimer: Please note that the information provided on this website is intended for informational purposes only and does not represent a warranty. The opinions expressed are those of the author only. We recommend testing any solutions in a development environment before implementing them in production. The articles are based on our good faith efforts and were current at the time of writing, reflecting our practical experience in a commercial setting.

Thank you for visiting and, as always, we hope this website was of some use to you!

Kind Regards,

Joel Lipman
www.joellipman.com

Please publish modules in offcanvas position.