Hjælp til kode til at sende mail fra excel

Hej jeg har et regneark hvor er har en makro som automatisk kan sende en mail, med den data som er i forskellige celler, når jeg trykker på en knap.

Problemet opstår når jeg gerne vil have den til at skrive et hyperlink i min mail.

Hvis vi siger i celle C8 har jeg formlen =HYPERLINK(CELLE("filename"))Så laver den mit hyperlink perfekt, men når dataen fra denne celle skal indgå i min mail, så kan den ikke længere læse det som et hyperlink, den skriver kun stien til hvor filen den er gemt.

Er der nogen som kan hjælpe mig med at få den til at vise den som hyperlink?



Min mail kode ser ud som følgende:

Sub SendStandartbrev()
    On Error Resume Next
    Dim olApp As New Outlook.Application
    Dim olNewMail As Object
    Dim Recep As String
    Dim MsgTxt As String
    Dim Varnavn As String
    Dim varantal As Long
   
    Set olApp = GetObject("Outlook.Application")

    For i = 1 To 1
        Recep = Worksheets("Standartbrev").Range("A" & i).Value
        Varenavn = Worksheets("Standartbrev").Range("B" & i).Value
        Overskrift = Worksheets("Standartbrev").Range("D" & i).Value
        Tekst1 = Worksheets("Standartbrev").Range("E" & i).Value
        Tekst2 = Worksheets("Standartbrev").Range("F" & i).Value
        Tekst3 = Worksheets("Standartbrev").Range("G" & i).Value
        Tekst4 = Worksheets("Standartbrev").Range("H" & i).Value
        Tekst5 = Worksheets("Standartbrev").Range("I" & i).Value
        Tekst6 = Worksheets("Standartbrev").Range("J" & i).Value
        Tekst7 = Worksheets("Standartbrev").Range("K" & i).Value
        Tekst8 = Worksheets("Standartbrev").Range("L" & i).Value
        Tekst9 = Worksheets("Standartbrev").Range("M" & i).Value
        Tekst10 = Worksheets("Standartbrev").Range("N" & i).Value
        Tekst11 = Worksheets("Standartbrev").Range("O" & i).Value
        Tekst12 = Worksheets("Standartbrev").Range("P" & i).Value
        Tekst13 = Worksheets("Standartbrev").Range("Q" & i).Value
        Tekst14 = Worksheets("Standartbrev").Range("R" & i).Value
        Tekst15 = Worksheets("Standartbrev").Range("S" & i).Value
       
       
       
        MsgTxt = "<p style='font-family:Arial;font-size:15:font-weight:bold'>" & Overskrift & "</p>" & _
        "<p style='font-family:Arial;font-size:15'>" & Tekst1 & "</p>" & _
        "<p style='font-family:Arial;font-size:15'>" & Tekst2 & "</p>" & _
        "<p style='font-family:Arial;font-size:15'>" & Tekst3 & "</p>" & _
        "<p style='font-family:Arial;font-size:15'>" & Tekst4 & "</p>" & _
        "<p style='font-family:Arial;font-size:15'>" & Tekst5 & "</p>" & _
        "<p style='font-family:Arial;font-size:15'>" & Tekst6 & "</p>" & _
        "<br <b style='font-family:Arial;font-size:15'>" & Tekst7 & "</b>" & "</br>" & _
        "<br <I style='font-family:Arial;font-size:15'>" & Tekst8 & "</I>" & "</br>" & _
        "<br <b style='font-family:Arial;font-size:15'>" & Tekst9 & "</b>" & "</br>" & _
        "<br <I style='font-family:Arial;font-size:15'>" & Tekst10 & "</I>" & "</br>" & _
        "<br <b style='font-family:Arial;font-size:15'>" & Tekst11 & "</b>" & "</br>" & _
        "<br <I style='font-family:Arial;font-size:15'>" & Tekst12 & "</I>" & "</br>" & _
        "<p style='font-family:Arial;font-size:15'>" & Tekst13 & "</p>" & _
        "<p style='font-family:Arial;font-size:15'>" & Tekst14 & "</p>" & _
        "<p style='font-family:Arial;font-size:15'>" & Tekst15 & "</p>"
       
       
           
       

        Set olNewMail = CreateItem(olMailItem)

        With olNewMail
            .SentOnBehalfOfName = "regnskab@aab.dk"
            .Recipients.Add Recep
            .HTMLBody = MsgTxt
            .Subject = Varenavn
            .ReadReceiptRequested = False
            .OriginatorDeliveryReportRequested = False
            .Display
        End With
    Next i
End Sub