Gem og luk funktion i VBA

Kan jeg i nedenstående få Excell til at lukke automatisk når filen er gemt???

Private Sub CommandButton2_Click()
If [Ark1!c28] = "" Then Navn = [Ark1!c10] Else Navn = [Ark1!c28]
If [Ark1!c28] = "" Then drev = "J:\Vareoprettelser\" & Sheets("Ark1").Range("C6") & "\" & Sheets("Ark1").Range("F8") & "\" Else drev = "J:\Vareoprettelser\" & Sheets("Ark1").Range("C6") & "\" & Sheets("Ark1").Range("F8") & "\"
If MsgBox("Projektmappen gemmes som :  " & drev & Navn & ".xls  er det ok ?", vbYesNo) = vbYes Then ThisWorkbook.SaveAs drev & Navn & ".xls"
If Sheets("Ark1").Range("G8") <> "" Then Kill "J:\Vareoprettelser\" & Sheets("Ark1").Range("C6") & "\" & Sheets("Ark1").Range("G8") & "\" & Sheets("Ark1").Range("G18") & ".xls"
End
End Sub