1: 2: 3: 4: 5: 6: 7: 8:
Sub dolinks() Dim lnk As Hyperlink Dim columnoffset As Integer columnoffset = 1 For Each lnk In ActiveSheet.Hyperlinks ActiveSheet.Cells(lnk.Parent.Cells.row, lnk.Parent.Cells.Column + columnoffset) = lnk.Address Next End Sub