Hyperlink aktivieren

Sub CommandButton1_Click()
'Speichern
ThisWorkbook.Save
'Öffnen von Outlook und einer neuen Email
Set olapp = CreateObject("Outlook.Application")
Set olitem = olapp.createitem(OlMailItem)
'Benennung Betreff der Email
olitem.Subject = ActiveWorkbook.Name
'Inhalt der Email
olitem.body = "Hallo HBA-Team," & vbLf & vbLf & "bitte bearbeiten Sie die ABC weiter, ich   _
_
habe meinen Teil bearbeite und hiermit bestätigt." & vbLf & vbLf & "Liebe Grüße" & vbLf & vbLf & _
"Link dazu: " & Range("A1")
'Adresse der Email
olitem.to = "abc@zyx.de"
'Adresse anzeigen
olitem.Display
End Sub