'src - https://howtouseexcel.net/how-to-extract-a-url-from-a-hyperlink-on-excel Sub Button1_Click() Dim HL As Hyperlink For Each HL In ActiveSheet.Hyperlinks HL.Range.Offset(0, 1).Value = HL.Address Next End Sub