Assuming extracthl is required, the following result was found.
into VBA (Press Alt+F11) Insert a new module (Insert > Module) Copy and Paste the Excel user defined function below Sub ExtractHL() Dim HL As Hyperlink For Each HL In ActiveSheet.Hyperlinks HL.Range.Offset(0, 1).Value = HL.Address Next End Sub Press F5...