Here's one I did recently for a client.

Sub geturlinfo()
lr = Sheets("copyweb").Cells(Rows.Count, "c").End(xlUp).Row
For Each H In Sheets("copyweb").Range("c1:c" & lr)
With Sheets("dest")
If H.Hyperlinks.Count 0 Then
myh = H.Hyperlinks(1).Address
dlr = .Cells(Rows.Count, "a").End(xlUp).Row + 1
..Cells(dlr, "a") = Mid(myh, 27, Len(myh) - 37)
End If
End With
Next H
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"ttc" wrote in message
...
In excel I have a long list of hyperlinks to favorite places on the web. I
want to print the url addresses. When I turn off the hyperlink only the
"friendly name" is left. Is there a way to change the friendly name to the
url address without manually typing or right clicking/edit hyperlink and
then
copying the url for each one?
Thanks!