不显示警告框问题，请帮忙

一成不变变

写了一段代码，是想不保存“报点”工作薄，关闭工作薄，如果按F8逐句运行时，不显示警告框，如果按控制按钮“提交”，就显示警告框，不知哪里出错了，请帮忙看看，

Sub 报点()

    Application.DisplayAlerts = False '禁止显示提示和警告消息
            Range("P3") = "试验"
         yue = Format(Date, "m") & "月.xlsx" '月
            Workbooks(yue).Save '保存
        MsgBox yue & "保存成功"
        If Workbooks.Count > 2 Then '如果不止一个工作簿
            Windows(yue).Close
            ThisWorkbook.Close False '关闭当前工作簿
        Else
            Application.Quit '退出EXCEL
        End If

    Application.DisplayAlerts = True '显示提示和警告消息


End Sub

爱疯

没看到提示啊