Amigo, troque seu código por este, ele é mais simples e faz a exclusão do arquivo temporário, conforme deseja. Teste ai e dê um retorno.

Sub Enviar_Email_com_PDF()

    '========================================================
    'Essa macro requer que sejam acrescentadas as referências
    'Microsoft Outlook 12.0 (ou maior) Object Library
    'Microsoft Scriping Runtime
    '========================================================

    Dim OL As Object
    Dim EmailItem As Object
    Dim Wb As Workbook
    
    Application.ScreenUpdating = False
    Set OL = CreateObject("Outlook.Application")
    Set EmailItem = OL.CreateItem(olMailItem)
    ActiveSheet.UsedRange.Select
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ActiveWorkbook.Path & "Temp.pdf", Quality:=xlQualityStandard _
        , IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _
        :=False
    
    With EmailItem
        .Subject = "Pedido Nike do Brasil"
        .Body = "Segue anexo Pedido de materiais de limpeza." & vbCrLf & _
        "" & vbCrLf & _
        "Obrigado!"
        .To = "rodrigo.palmanhani@nike.com"
        .CC = "fabiola.sousa@nike.com"
        .Importance = olImportanceNormal
        .Attachments.Add ActiveWorkbook.Path & "Temp.pdf"
        .Send
        
        MsgBox "PEDIDO ENVIADO COM SUCESSO!", vbInformation, "ENVIADO"
    End With
    
    Application.ScreenUpdating = True
    
    Set Wb = Nothing
    Set OL = Nothing
    Set EmailItem = Nothing
    
    Kill Caminho & "Temp.pdf"
    
End Sub
Function Caminho() As String
Caminho = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "")
End Function

Muito obrigado .... boa semana

Amigo, troque seu código por este, ele é mais simples e faz a exclusão do arquivo temporário, conforme deseja. Teste ai e dê um retorno.

Sub Enviar_Email_com_PDF()

    '========================================================
    'Essa macro requer que sejam acrescentadas as referências
    'Microsoft Outlook 12.0 (ou maior) Object Library
    'Microsoft Scriping Runtime
    '========================================================

    Dim OL As Object
    Dim EmailItem As Object
    Dim Wb As Workbook
    
    Application.ScreenUpdating = False
    Set OL = CreateObject("Outlook.Application")
    Set EmailItem = OL.CreateItem(olMailItem)
    ActiveSheet.UsedRange.Select
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ActiveWorkbook.Path & "Temp.pdf", Quality:=xlQualityStandard _
        , IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _
        :=False
    
    With EmailItem
        .Subject = "Pedido Nike do Brasil"
        .Body = "Segue anexo Pedido de materiais de limpeza." & vbCrLf & _
        "" & vbCrLf & _
        "Obrigado!"
        .To = "rodrigo.palmanhani@nike.com"
        .CC = "fabiola.sousa@nike.com"
        .Importance = olImportanceNormal
        .Attachments.Add ActiveWorkbook.Path & "Temp.pdf"
        .Send
        
        MsgBox "PEDIDO ENVIADO COM SUCESSO!", vbInformation, "ENVIADO"
    End With
    
    Application.ScreenUpdating = True
    
    Set Wb = Nothing
    Set OL = Nothing
    Set EmailItem = Nothing
    
    Kill Caminho & "Temp.pdf"
    
End Sub
Function Caminho() As String
Caminho = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "")
End Function