'Here's a short macro:
'Note that this assumes you are not using the function HYPERLINK, but just
an 'embedded hyperlink
'To install, right click on sheet tab, view code, paste the following in.

Sub ListHyperlinks()
i = 1
For Each h In Me.Hyperlinks
'Generates list in column Z, starting at row 1
Cells(i, "Z").Value = h.Name
i = i + 1
Next h
End Sub

--
Best Regards,

Luke M
"Dale" wrote in message
...
I have a worksheet with over 800 cells. Each cell displays a churches
website url. I need to display the actual hyperlink
http://www.whatever.com
not the Link name.
example First Baptist Church Nashville. I need the hyperlink
http://fbcnashville.org. displayed in the next cell.