Gem og luk funktion i VBA (Igen)

Jeg bruger nedenstående i et Excell ark, og vil gerne have lavet den om, så den kun lukker det aktive ark når man gemmer.

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"
Application.Quit
End
End Sub