Excel: Extract hyperlink from link

Category: Excel
Hits: 10102
Rating:
( 215 Ratings )
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: 872