Excel - No me funciona

A ver si me explico........

Esta declaracion la tengo en General Declarativos de thisworkbook

Public sw_cerrar As Integer

Tengo estas sub.....

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox ("el valor es = " + Str(sw_cerrar))
If sw_cerrar = 0 Then
Cancel = True
End If
End Sub

Private Sub Workbook_Open()
On Error Resume Next
sw_cerrar = 0
End Sub

Tengo en un boton de comando

Sub Terminar_Click()
sw_cerrar = 1
Application.DisplayAlerts = False
ActiveWorkbook.Close SaveChanges:=False
Application.Quit

End Sub

Pero la pregunta es porque la variable sw_cerrar no toma la igualdad de "1" cuando doy click al boton terminar ???? siempre llega un "0" a la rutina workbook_beforeclose

gracias por sus respuestas y saludos

Simplemente tu variable publica esta mal ubicada. dejalo asi, el el thisworkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox ("el valor es = " + Str(sw_cerrar))
If sw_cerrar = 0 Then
Cancel = True
End If
End Sub

Private Sub Workbook_Open()
On Error Resume Next
sw_cerrar = 0
End Sub

y en el modulo:

Public sw_cerrar As Integer
Sub Terminar_Click()

sw_cerrar = 1
Application.DisplayAlerts = False
ActiveWorkbook.Close SaveChanges:=False
Application.Quit
End Sub

listo.

Abraham