Hvorfor er der en masse .tmp filer i mappen?

Hej

Jeg har en makro, som kopiere noget fra et excel dokument over i et andet, gemmer det og udskriver 2 kopier!
Det jeg så ikke kan forstå er de .tmp filer som den ligger i samme mappe som den gemmer det ny dokument, jeg kan ikke slette dem før jeg genstarter.
De er der selvom jeg lukker excel, hva gør jeg?
Koden ser således ud:

Sub LavFaktura()

    Sheets("Faktura Tom").Select
    Sheets("Faktura Tom").Copy
    Columns("I:I").Select
    Selection.EntireColumn.Hidden = True
    Columns("J:J").Select
    Selection.EntireColumn.Hidden = True
    Columns("K:K").Select
    Selection.EntireColumn.Hidden = True
    Columns("M:M").Select
    Selection.EntireColumn.Hidden = True
    Columns("N:N").Select
    Selection.EntireColumn.Hidden = True
    Columns("O:O").Select
    Selection.EntireColumn.Hidden = True
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
   
    Filnavn = Format(Range("L7"), "00000000")
   
    ActiveWorkbook.SaveAs Filename:="D:\regnskab\" & Filnavn & ".xls"
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 1
   
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
   
    ActiveWorkbook.Close
    Range("L7").Value = Format(Range("L7").Value + 1, "00000000")
    Range("L8").Value = Format(Range("L8").Value + 1, "00000000")

    Range("B13:I27").Select
    Selection.ClearContents
    Range("B13").Select
    ActiveWorkbook.Save
End Sub