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

bc1qf6elrdxc968h0k673l2djc9wrpazhqtxw8qqp4
0xb038962F3809b425D661EF5D22294Cf45E02FebF