Sub test() For Each cell In Range("A3:A183") cell.Offset(0, 1) = cell.Hyperlinks(1).Address Next End Sub