消息框跳出3次才能关闭的原因

532815652

求高手指教！

我想在excel关闭时，如果剩余年假负数的，则跳出消息框。
消息框选择是的，则激活单位格
否则，则保存关闭表格。

问题：选择否时，消息框要跳出3次，点3次否才能关闭。请高手指教到底哪里出错了！万分感谢！


Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Range("剩余年假").Value < 0 Then MsgBox "年假超期了，请检查!需要更改更请按“是”", vbYesNo
Dim 超期提示 As Integer
超期提示 = MsgBox("年假超期了，请检查!需要更改更请按“是”", vbYesNo)
If 超期提示 = vbYes Then
Range("剩余年假").Activate
Else
ThisWorkbook.Save
ThisWorkbook.Close
End If
End Sub

ggsmart

请上传一个附件，以备调式和检查代码。

532815652

补上附件，谢谢帮忙！