VBA: Mappe2 öffnen Mappe1 schließen

Private Sub cmd_BKB_starten_Click() 'Mappe2
Dim wbAktiv As Workbook 'Mappe1
Set wbAktiv = ActiveWorkbook 'Mappe1
Workbooks.Open "D:\Firma\Vorlagen\BKB.xlsm" 'Öffnet Mappe2
wbAktiv.Close 'schließt Mappe1
End Sub

Private Sub cmd_BKK_schließen() 'Mappe1
Dim sPfad As String
Dim iClick As Integer
sPfad = "D:\Firma\Backup\"
With ActiveWorkbook
.Save
iClick = MsgBox(prompt:="Möchten Sie eine Sicherungskopie anlegen?", Buttons:=vbYesNo)
If iClick = vbYes Then
.SaveCopyAs sPfad & ThisWorkbook.Name
If iClick = vbNo Then
Exit Sub
End If
End If
End With
Application.Quit
End Sub