hyperlink problem

[Rich]

Hi,

In column A I have a pasted link, displayed by friendly name (e.g "Click
Here"), and when I hover over I see the URL, and clicking the link opens the
URL in a browser window.

I would like column B to display the URL as text,

eg Click Here http://www.example.com

Is there a formula or function that will do this ?

 

[Mike H]

Hi,

This udf will extract the underlying value. Place it in a General module and
call with

=LinkText(a1)


Function LinkText(rng As Range) As String
On Error Resume Next
LinkText = rng.Hyperlinks(1).Address
End Function
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.

 

[Rich]

This udf will extract the underlying value. Place it in a General module
and
call with

=LinkText(a1)


Function LinkText(rng As Range) As String
On Error Resume Next
LinkText = rng.Hyperlinks(1).Address
End Function
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.

Mike,

Works a treat, thankyou.