Как правильно закрыть приложение - VBA

Формулировка задачи:

Написал такой код:

Sub SochrKopia3()
Dim userEntry As String
userEntry = MsgBox("Сохранить изменения?", vbYesNo)
 
If userEntry = vbYes Then ThisWorkbook.Save
 
If userEntry = vbNo Then
    ThisWorkbook.Close SaveChanges:=False
    Exit Sub
End If
 
If Dir("F:") <> " " Then
    ThisWorkbook.SaveCopyAs "F:\копия.xlsm"
    ThisWorkbook.Close SaveChanges:=True
    Exit sub
    
    ElseIf Dir("F:") = " " Then
        ThisWorkbook.SaveCopyAs "E:\копия.xlsm"
        ThisWorkbook.Close SaveChanges:=True
        Exit sub
End If
        
If Workbooks.Count = 1 Then Application.Quit
 
End Sub

2 странности: 1) Несмотря на exit sub при наличии диска F сохраняет 2 раза - на F и E. 2) Не закрывает окно Exel, даже если книга была открыта одна. В чем может быть причина?

Решение задачи: «Как правильно закрыть приложение»

textual
                            Листинг программы 
                        

                            'Module1
Sub SochrKopia3()
Dim userEntry As VbMsgBoxResult
Dim f As String
userEntry = MsgBox("Сохранить изменения?", vbYesNo)
If userEntry = vbNo Then
    ThisWorkbook.Saved = True
Else 'If userEntry=vbYes then
    ThisWorkbook.Save
    On Error Resume Next
    ThisWorkbook.SaveCopyAs "G:\копия.xlsm"
    If Err Then Err.Clear: ThisWorkbook.SaveCopyAs "I:\копия.xlsm"
End If
End Sub
                        