Slet fil med macro

Hej er ved at lave at system i excel hvor jeg skal lave nogle registreringer af nogle emner.
Jeg har brug for at gemme inden jeg er helt færdig men nu kommer problemmet, jeg kan ikke få lov til at slette filen da den jo stadig har fat i excel jeg har lavet denne macro


Sub Gem()
'Indsætter dagsdato i datofeltet på det færdige kontrolskema
Worksheets("Kontrolskema").Range("C212") = Date
'Gemmer kontrolskema i kundenr mappe og med navn efter dokumentnr og ordrenr.
ActiveWorkbook.SaveAs Filename:="G:\DATA\PL\SHEETMETAL\Arkiv-xal\Kontrolskemaer\" & Range("c2").Value & "\" & Range("C4").Value & "-" & Range("F2").Value & "-" & Range("I2").Value
'Sletter midlertidige fil
If Dir("G:\DATA\PLADE\Produktion\Kontrolskemaer_Temp\" & ComboBox1.Value & "\" & Range("C4").Value & "-" & Range("F2").Value & "-" & Range("I2").Value & ".xls") <> "" Then
Kill "G:\DATA\PLADE\Produktion\Kontrolskemaer_Temp\" & ComboBox1.Value & "\" & Range("C4").Value & "-" & Range("F2").Value & "-" & Range("I2").Value & ".xls"
End If
Worksheets("Kontrolskema").Select
Selection.Locked = True
End Sub


hvad kan jeg gøre