Function ExtraerHipervinculo(Rango As Range)
ExtraerHipervinculo = Rango.Hyperlinks(1).Address
End Function