ændre navn på vedhæftet pdf

Hej med jer
Er der mon én der har et bud på, hvordan jeg laver en tilføjelse på den vedhæftede pdf fil, når jeg aktiverer makroen, "Medarb" skal tilføjes efter Filnavn.pdf.
Modulet ser ud som følger:

Sub Mad_bestilling()

Sheets("Bestilling").Select

Dim DataSti As String
Dim Filnavn As String
Dim objFolders As Object
Set objFolders = CreateObject("WScript.Shell").SpecialFolders
Dim OutlookPrg As Object
Dim OutlookMail As Object

With ActiveSheet
        navn = .Range("k4")
        modtager = .Range("k2")
        tlf = .Range("k3")
        medarb = .Range("k6")
    End With


Set OutlookPrg = CreateObject("Outlook.Application")
Set OutlookMail = OutlookPrg.CreateItem(0)

DataSti = objFolders("desktop") & Application.PathSeparator
Filnavn = ActiveSheet.Name & ".pdf"

ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=DataSti & Filnavn, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

On Error Resume Next
With OutlookMail
    .to = modtager
    .CC = ""
    .BCC = ""
    .Subject = " Madbestiling " & navn
    .Body = "Hermed fremsendes madbestilling" & vbCrLf & vbCrLf & "Med venlig hilsen" & vbCrLf & navn & vbCrLf & "tlf  " & tlf
    .Attachments.Add (DataSti & Filnavn)
    .Display
End With
On Error GoTo 0

Kill (DataSti & Filnavn)

Set OutlookMail = Nothing
Set OutlookPrg = Nothing
Set objFolders = Nothing
     
Sheets("Journal").Select
    Range("P16:p31,P34:p49").Select
    Range("P34").Activate
    Selection.ClearContents
    Range("P16").Select


End Sub