Here is a User Defined Function that will return a 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 - gsnu200796


"Lisa" wrote:

I have a spreadsheet with several hundred website entries listed. Each one
of them is a hyperlink where the hyperlink displays as "xyz company". In
order to extract the URL to a different cell, I have to right click, select
"Edit Hyperlink" then highlight the URL and copy it, hit cancel, and then
paste the URL into another cell.

Is there an easier way?

Excel 2003 SP2