проблема с событием Cancel на BeforeClose

Question

У меня проблема с событием Отмена в следующей процедуре, при котором я не могу отменить закрытие книги. Хотя я установил для параметра «Отмена» значение «Истина» и проверил, правильно ли он работает, книга все еще закрывается. Можете ли вы помочь мне определить, в чем проблема?

Вот код:

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim xx As Integer, difFecha As Double, MemoMes As String, MemoNuMes As String
Dim TSel As Integer

MemoMes = "": MemoNuMes = ""

For xx = 23 To 34
difFecha = DateDiff("s", Sheets("PARAM").Cells(xx, 8), Sheets("PARAM").Cells(xx, 9))
If difFecha < 0 Then
MemoMes = MemoMes & Sheets("PARAM").Cells(xx, 7) & " " ' hay modificaciones sin calcular
If MemoNuMes = "" Then MemoNuMes = Format(xx - 22, "00")
End If
Next xx

If MemoMes <> "" Then ' hay modificaciones sin calcular
TSel = MsgBox("En la(s) hoja(s) del mes " & MemoMes & "parece que ha hecho modificaciones y NO ha CALCULADO." & Chr(10) & _
"¿Quiere calcular antes de cerrar?", vbYesNo + vbExclamation, "ATENCIÓN")
If TSel = vbYes Then
Cancel = True
Exit Sub
End If
End If

End Sub