Copy only hyperlink to a new cell
 

Say A1 contains a hyperlink. This little UDF will display the underlying URL:

Function hyp(r As Range) As String
hyp = ""
If r.Hyperlinks.Count 0 Then
hyp = r.Hyperlinks(1).Address
Exit Function
End If
If r.HasFormula Then
rf = r.Formula
dq = Chr(34)
If InStr(rf, dq) = 0 Then
Else
hyp = Split(r.Formula, dq)(1)
End If
End If
End Function
--
Gary''s Student - gsnu200907


"Mike_Gormley" wrote:

I have a series of cells that are hyperlinked. The copy displaying in the
cells is not the hyperlink, but other text. How can I copy the value of the
hyperlink to another cell? Again, I do not want the text that is displaying
in the cell, but the hyperlink to appear when I paste to a new cell.

Is there a formula or function that will allow this?