How to copy the url for a list of cell with hyperlinks in another column?

R

Ron de Bruin

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Copy addition formula of non-consecutive horizontal cells 2
Reposition Cells in a Column based on another 2
How to make repeating drop-down lists? 2
Word VBA - Automatic change content of a cell in table using dropdown list 5
Drop down list control value in vba 2
Cell copy 2
Copy and Paste Word 2010 0
Drop down lists in seperate columns 5

Top