VBA Hyperlink zu ActiveWorkbook versenden

Private Sub CommandButton5_Click()
'Info an Team
'   Excel_Workbook_via_Outlook_Senden()
Dim MyMessage As Object, MyOutApp As Object
Dim Qe As Integer
Dim AWS As String
'    'Outlook Object erstellen
Set MyOutApp = CreateObject("Outlook.Application")
'Outlook Nachricht erstellen
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = "m.buss@test.de"
.Subject = Range("A1").Text & " " & Range("B1").Text & " " & "neuer Auftrag im Haus"
'        .Attachments.Add AWS
.body = "Hallo zusammen," & vbCrLf & vbCrLf & "wir haben einen neuen Auftrag erhalten:"  _
& vbCrLf & vbCrLf & vbCrLf & "Gruß" & vbCrLf & vbCrLf & vbCrLf & "(Signatur einfügen)"
.Display
'.Send
End With
' MyOutApp.Quit                    'Outlook schliessen
Set MyOutApp = Nothing             'Variablen leeren
Set MyMessage = Nothing
End Sub