copy hyperlink from one cell to other

[arctushar]

Hello dear
I have a hyper link in cell A2. Value of the cell is "1st link" and hyperlink address is "http://1stlink/add.php".
Now I want that valu of B2 cell will be "http://1stlink/add.php"
I want to do that work in vba.
How can I do that, plz help me.

 

[Mitrix82]

Public function getHyperlink(c as range) as variant
           getHyperlink =  c.Hyperlinks(1).Address
End Sub

OR

Public sub copyHyperlinkAddress()
           range("B2").value = range("A2").hyperlinks(1).address
End Sub