Extract Hyperlink from Excel cell

Option 1: If you want to run this operation one time

    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

    5. Press F5 and click “Run”

    6. Get out of VBA (Press Alt+Q)

Sub ExtractHL()

Dim HL As Hyperlink

For Each HL In ActiveSheet.Hyperlinks

HL.Range.Offset(0, 1).Value = HL.Address


End Sub