Pulling Embedded LInk Out of Cell

I have a list of sites (ex-"Running Site") in an excel column that are formatted as links (ie: a browser with a link opens when you click on the cell). I want to write a macro that will pull the links out of the cell and write them to a text file or an adjacent column. How can I do that? I basically just need the line of code that will identify the link that is embedded in the cell.

Thanks~

If A1 contains a hyperlink then

=hyp2(A1) will display the link

Enter this tiny UDF:

Function hyp2(r As Range) As String
hyp2 = r.Hyperlinks(1).Address
End Function

--
Gary's Student


"bobbabuoy" wrote:

>
> I have a list of sites (ex-"Running Site") in an excel column that are
> formatted as links (ie: a browser with a link opens when you click on
> the cell). I want to write a macro that will pull the links out of the
> cell and write them to a text file or an adjacent column. How can I do
> that? I basically just need the line of code that will identify the
> link that is embedded in the cell.
>
> Thanks~
>
>
> --
> bobbabuoy
> ------------------------------------------------------------------------
> bobbabuoy's Profile: http://www.excelforum.com/member.php...o&userid=33491
> View this thread: http://www.excelforum.com/showthread...hreadid=532907
>
>

activecell.Hyperlinks(1).Address


"bobbabuoy" wrote:

>
> I have a list of sites (ex-"Running Site") in an excel column that are
> formatted as links (ie: a browser with a link opens when you click on
> the cell). I want to write a macro that will pull the links out of the
> cell and write them to a text file or an adjacent column. How can I do
> that? I basically just need the line of code that will identify the
> link that is embedded in the cell.
>
> Thanks~
>
>
> --
> bobbabuoy
> ------------------------------------------------------------------------
> bobbabuoy's Profile: http://www.excelforum.com/member.php...o&userid=33491
> View this thread: http://www.excelforum.com/showthread...hreadid=532907
>
>