Alt+F11 Sub test() For Each cell In Range("A2:A48") cell.Offset(0, 1) = cell.Hyperlinks(1).Address Next End Sub