Pessoal, bom dia!

Alguém consegue me ajudar, quando eu mando um e-mail e tem quatro links, só que eu tenho que ficar editando no corpo do e-mail para colocar como Hiperlink. Gostaria muito quando eu enviar e simplesmente não precisar de ficar editando para colocar como hiperlink.

Observar que no: Plan1.Range("W13") , Plan1.Range("W15") , Plan1.Range("W16") e Plan1.Range("W21") < dentro estas células é que estão os links

Segue o código:

Sub COPAMail()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim RngCopied As Range

    Application.ScreenUpdating = False
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    'Set RngCopied = Range("area_enviar")
    
    
    If Hour(Now()) >= 12 Then
        cumpr = "boa tarde!"
    Else
        If Hour(Now()) >= 18 Then
            cumpr = "boa noite!"
        Else
            cumpr = "bom dia!"
        End If
    End If
        
    'On Error Resume Next
    With OutMail
        .To = Plan1.Range("W3").Value
        .CC = Plan1.Range("W6").Value
        '.BCC = Plan14.Range("C6").Value
        .Subject = "Super Copa & Copa dos Campeões - " & Format(Plan1.Range("S2").Value, "dd" & "/" & "mm" & "/" & "yyyy")
        .HTMLBody = "<span LANG=EN>" _
                & "<p class=style2><span LANG=PT-BR><font FACE=Calibri SIZE=3,3>" _
                & "Prezados, " & cumpr & "<br>" _
                & "<br>" _
                & Plan1.Range("W12").Value _
                & "<br>" _
                & Plan1.Range("V13").Value & "" & Plan1.Range("W13").Value _
                & "<br>" _
                & "<br>" _
                & Plan1.Range("V14").Value _
                & "<br>" _
                & "<br>" _
                & Plan1.Range("V15").Value & "" & Plan1.Range("W15").Value _
                & "<br>" _
                & Plan1.Range("V16").Value & "" & Plan1.Range("W16").Value _
                & "<br>" _
                & Plan1.Range("V21").Value & "" & Plan1.Range("W21").Value _
                & "<br> <br>"
  
      Worksheets("LETs").Activate
            
            Call PNGRange(Range("A2:S51"), "SUPER")
                 
            Worksheets("LETs").Activate
            
            Call PNGRange(Range("A52:S147"), "COPA")
            
            TempFilePath = Environ$("temp") & "\"
            .Attachments.Add TempFilePath & "SUPER.png", olByValue, 0
            .HTMLBody = .HTMLBody & "<img src='cid:SUPER.png'" & "width=1100.00 height=590 ><br>" _
            & "<br > <br >" _
            '& "REVERSA <br>" _
            & "<br > " _

            TempFilePath = Environ$("temp") & "\"
            .Attachments.Add TempFilePath & "COPA.png", olByValue, 0
            .HTMLBody = .HTMLBody & "<img src='cid:COPA.png'" & "width=1100.00 height=1000 ><br>" _
            & "<br > "
            
            Worksheets("LETs").Activate
        
       
         .Attachments.Add "\\fsb2w02\Logistica\Qualidade\2021\10_Qualidade_Seropédica\1. Gerot_Qualidade\Gerot_Let´s - Revenda_Seropédica.xlsm"
        .Display
'        .send
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
    
    Application.ScreenUpdating = True
    
End Sub