How to copy the url for a list of cell with hyperlinks in another column?
R Ron de Bruin Oct 8, 2005 #2 With the hyperlinks in Col A run this to copy the address in Col B Sub Test() Dim hlnk As Hyperlink For Each hlnk In Columns("A").Hyperlinks hlnk.Parent.Offset(0, 1).Value = hlnk.Address Next End Sub
With the hyperlinks in Col A run this to copy the address in Col B Sub Test() Dim hlnk As Hyperlink For Each hlnk In Columns("A").Hyperlinks hlnk.Parent.Offset(0, 1).Value = hlnk.Address Next End Sub
