Need hyperlink help

[Shani]

In column A there a bunch of cells
I want to extract all the hyperlinks associated with the cells in
column A into Column B

for example
A1=axyfsk hyperlink=http://www.fasdfasdfasfsdfafd.com
I want B1=hyperlink=http://www.fasdfasdfasfsdfafd.com

 

[Gary''s Student]

First enter this tiny UDF:


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



then in B1 enter:
=hyp2(A1)
and copy down