Workbook_BeforeClose(Cancel As Boolean)

[redspanna]

Hi all

I have a Userform that on selecting YES a certain macro is run on selecting NO the form is closed and the workbook closed...or at least that is what I want..

code attached to the NO button on the userform

Private Sub CommandButton2_Click()
Unload Me
ActiveWorkbook.Close
End Sub

however there is also this code in the Workbook_BeforeClose(Cancel As Boolean) section

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Dim myForm As Userclose
    
    If Time > TimeValue("18:00:00") Then
        Cancel = True
        Set myForm = Userclose
        myForm.Show
    End If
    
End Sub

so an error occurs because as I understand it when the NO button is pressed the userform is closed but then the private Sub code above kicks is

How can I over ride this on close event so that when the NO button is selected the userform is closed and the workbook is closed too without running the Private Sub Workbook_BeforeClose(Cancel As Boolean) macro

hope this makes sense and thanks in advance

 

[lenze]

Private Sub CommandButton2_Click()
Unload Me
Application.EnableEvents = False
ActiveWorkbook.Close
End Sub

lenze

 

[redspanna]

that simple uh?

many thanks