Hyperlink auslesen

[zapata07]

Wenn ich einfach nur das hier hineinkopiere und dann schließe ist nichts gespeichert:

Public Function EntfernenHyperlink(Zelle As Range)
Application.Volatile
EntfernenHyperlink = Zelle.Hyperlinks(1).Address
End Function