How can I display the text of a hyperlink?
¡Brilliant!
"Mike H" wrote:
Bob,
I 've assumed these hyperlinks are in Column A. If that's incorrect post
back. Right click your sheet tab, view code and paste this in and run it.
Sub Prime_Lending()
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Set MyRange = Range("A1:A" & LastRow)
For Each c In MyRange
On Error Resume Next
c.Offset(0, 1).Value = c.Hyperlinks(1).Address
Next
End Sub
Mike
"Bob" wrote:
I have a lot of hyperlinks. I want to produce
a column adjacent to each hyperlink to show the text so that I can then
extract reference from the full text string
Can anyone give me simple instructions how to achieve this?
Bob
|