Tilføjelse af et hyperlink til en fil?

Jeg fandt en kode, der lader mig sende forfaldsdatoer i en e-mail. Jeg prøver at ændre det, så jeg linker excel-filen sammen med denne. Den bliver blå; jeg kan dog ikke klikke på den for at åbne. Er der nogen der ved hvordan jeg kan fikse det. Hjælp venligst. Mange tak! Jeg har selv markeret den del, som jeg tilføjede, med fed skrift.

Her er koden:

Offentlig under CheckAndSendMail()
'Opdateret af Extendoffice 2018/11/22
Dim xRgDate Som område
Dim xRgSend As Range
Dim xRgText As Range
Dim xRgDone As Range
Dim xOutApp som objekt
Dim xMailItem som objekt
Dim xLastRow As Long
Dim vbCrLf Som streng
Dim xMailBody As String
Dim xRgDateVal As String
Dim xRgSendVal As String
Dim xMailSubject As String
Dim jeg så længe
On Error Resume Next
Indstil xRgDate = Application.InputBox("Vælg venligst kolonnen for forfaldsdato:", "KuTools For Excel", , , , , , 8)
Hvis xRgDate ikke er noget, skal du afslutte Sub
Set xRgSend = Application.InputBox("Vælg venligst modtagerne? e-mail kolonne:", "KuTools til Excel", , , , , , 8)
Hvis xRgSend ikke er noget, skal du afslutte Sub
Set xRgText = Application.InputBox("Vælg kolonnen med påmindet indhold i din e-mail:", "KuTools For Excel", , , , , , 8)
Hvis xRgText ikke er noget, skal du afslutte Sub
xLastRow = xRgDate.Rows.Count
Indstil xRgDate = xRgDate(1)
Indstil xRgSend = xRgSend(1)
Indstil xRgText = xRgText(1)
Indstil xOutApp = CreateObject("Outlook.Application")
For i = 1 til xLastRow
xRgDateVal = ""
xRgDateVal = xRgDate.Offset(i - 1).Value
Hvis xRgDateVal <> "" Så
Hvis CDate(xRgDateVal) - Dato <= 7 Og CDate(xRgDateVal) - Dato > 0
xRgSendVal = xRgSend.Offset(i - 1).Værdi
xMailSubject = xRgText.Offset(i - 1).Value & " on " & xRgDateVal
vbCrLf = " "
xMailBody = " "
xMailBody = xMailBody & " Hej, du har tilføjet nye elementer" & vbCrLf
xMailBody = xMailBody & "Text : " & xRgText.Offset(i - 1).Value & vbCrLf
xMailBody = xMailBody & " L:\Public\23-Plant PDCA\2023\KACI Master 5S PDCA trail2.xlsm" & fpath & " "
xMailBody = xMailBody & " "
Indstil xMailItem = xOutApp.CreateItem(0)
Med xMailItem
.Subject = xMailSubject
.To = xRgSendVal
.HTMLBody = xMailBody
.Skærm
'.Sende
Slut med
Indstil xMailItem = Ingenting
End If
End If
Næste
Indstil xOutApp = Ingenting
End Sub