Annulere lukke procedure

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim Svar1 As Integer
    Dim Svar2 As Integer
    Dim Svar3 As Integer
   
    Svar1 = MsgBox("Har du husket...?", vbYesNo, "Husk")
    If Svar1 = vbYes Then
    'Lukker
    ElseIf Svar1 = vbNo Then
   
        Svar2 = MsgBox("Vil du gemme som tilbud...?", vbYesNo, "Gem som tilbud?")
        If Svar2 = vbYes Then
        'call "Gem som tilbud"
        Cancel = True
        ElseIf Svar2 = vbNo Then
       
            Svar3 = MsgBox("Vil du gemme som ordre...?", vbYesNo, "Gem som ordre?")
            If Svar3 = vbYes Then
            'call "Gem som ordre"
            Cancel = True
            ElseIf Svar3 = vbNo Then
                       
    Cancel = True
    End If
    End If
    End If
End Sub

Private Sub Workbook_Open()
Range("A1").Value = ""
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim Svar1 As Integer
    Dim Svar2 As Integer
    Dim Svar3 As Integer
   
If IsEmpty(Range("A1")) Then
   
    Svar1 = MsgBox("Har du husket...?", vbYesNo, "Husk")
    If Svar1 = vbYes Then
    'Lukker
    ElseIf Svar1 = vbNo Then
   
        Svar2 = MsgBox("Vil du gemme som tilbud...?", vbYesNo, "Gem som tilbud?")
        If Svar2 = vbYes Then
        'call "Gem som tilbud"
        Cancel = True
        MsgBox "Tilbudet er gemt" + Chr(10) + "i den ønskede mappe"
            Range("A1").Value = "Gemt som tilbud D: " & Now
        ElseIf Svar2 = vbNo Then
       
            Svar3 = MsgBox("Vil du gemme som ordre...?", vbYesNo, "Gem som ordre?")
            If Svar3 = vbYes Then
            'call "Gem som ordre"
            Cancel = True
            MsgBox "Ordren er gemt" + Chr(10) + "i den ønskede mappe"
                Range("A1").Value = "Gemt som ordre D: " & Now
            ElseIf Svar3 = vbNo Then
                       
    Cancel = True
    End If
    End If
    End If
    End If
End Sub