slette den gamle fil

Hej.
Jeg forsøger at rename filer i en hel mappe. Selve det at gemme dem i en anden mappe med nyt navn går fint (Det er egentligt bare en tilføjelse til navnet) men den måde som jeg har til at gøre det for alle filer i en mappe, kræver at den originale fil bliver slettet efter der er kørt gem som. Det skal lige siges at koden er genbrug, og jeg ikke forstår den 100%.

Det er skrevet som 2 forskellige Subs: den første process all, den anden Rename
_____________________________________________________________
Sub ProcessAll2()
    Dim Wb As Workbook, sFile As String, sPath As String
    Dim itm As Variant
    Dim strFileNames  As String
   
   
    sPath = "K:\PhaCWi\2018\Levtilskud\257 Schneider\Konvertering 17-18\Aftaler til konvertering\"
   
    'Adressen på folderen hvor excel filerne skal hentes
    sFile = Dir("K:\PhaCWi\2018\Levtilskud\257 Schneider\Konvertering 17-18\Aftaler til konvertering\")
  Do While sFile <> ""
        strFileNames = strFileNames & "," & sFile
        sFile = Dir()
    Loop
   
  '  Open each file found
    For Each itm In Split(strFileNames, ",")
        If itm <> "" Then
            Set Wb = Workbooks.Open(sPath & itm)
            Call Rename
           
        End If
    Next itm
   
   
End Sub
_____________________________________________________________
Sub Rename()
 
ActiveWorkbook.SaveAs Filename:="K:\PhaCWi\2018\Levtilskud\257 Schneider\Konvertering 17-18\Aftaler til konvertering 2\" & Range("C8").Value & " K2 " & " " & Range("C6").Value & ".xlsx"

End Sub
____________________________________________________________
Jeg kan ikke åbne via bestemt filnavn, eftersom den skal gøre det med flere forskellige filer med forskelligt navn.
Jeg håber spørgsmålet giver mening.
Vh Sidsel