"John87111" ha scritto nel messaggio


I have copied a web page into EXCEL that contains numerous hyperlinks
labeled "e-mail". When I click on the hyperlink Outlook opens and
the e-mail address is populated on the "to:" line. I want copy the
underlying e-mail address in the adjacent cell, but can not find a
way to do it (all I get is another cell labeled "e-mail"). I can do
it by right clicking on the cell and selecting "edit hyperlink" and
do a copy/paste w/ the e-mail address. However, I have a ton to do
and was hoping to find a quick way to copy the email address, Thanks
for your help.

You can use this UDF I found on www.ozgrid.com:

Function GetAddress(HyperlinkCell As Range)
GetAddress = Replace _
(HyperlinkCell.Hyperlinks(1).Address, "mailto:", "")
End Function

Just copy it in a module in your Personal.xls and then you can find the
function in your funnctin insert, under UDF.

Hoping to be helpful...

Regards

--
Franz

----------------------------------------------------------------------------------------
To reply translate from italian InVento (no capital letters)
----------------------------------------------------------------------------------------