Link in eine Textbox einfügen

Private Sub CmdLinkEinfuegen_Click()
Worksheets("Daten").Select
Range("o1").Select    'o1 willkürlich gewählt um die Link zwischen zu speichern.
Application.Dialogs(xlDialogInsertHyperlink).Show'öffnet Fenster zum Datei auswählen
UserForm4.TextBox20 = Range("o1") ' Fügt die Link in TextBox20 einfügen
Link = Range("o1").Value    ' Globale Variable "Link" um diese durch anderen Befehl ins  _
Tabellenblatt einzufügen
Worksheets("Tabelle1").Select
End Sub
Klappt auch soweit. ->Problem: Wenn ich es ins Tabellenblatt füge, ist es nicht blau und nicht  _
unterstrichen, sodass ich nicht diekt von Tabellenblatt auf die Link klicken kann.
Kennt jemand evtl. eine elegantere Lösung?
Liebe Grüße
Tina