I already find the way:

For example, if the cell "B3" has a hyperlink, this code extract the link
value:

Range("B3").Select
MsgBox (ActiveCell.Hyperlinks(1).Address)


"mabc" wrote:

I need how to get the hyperlink from a cell with VBA