Extract all URLs/ website links from a list of hyperlinks in one go #VBA #Exceltricks

Sub ExtractHL()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 1).Value = HL.Address
Next
End Sub