ActiveSheet.Delete不显示提示（当它应该）

Question

晚上好，我有一个非常简单的Sub过程删除活动工作表的插件。为了便于使用，我通过加载项的Workbook_Open调用中的Application.OnKey将Sub绑定到了一个组合键。

请参阅下面的代码。尽管使用了Application.DisplayAlerts = True，但实际的代码执行将删除没有提示的工作表。但是，由于这是一个关键绑定，我想强制提示以避免意外删除。

发生了什么事？

Public Sub DeleteActiveSheet() 

    Application.DisplayAlerts = True 

    If ActiveWorkbook.Sheets.Count = 1 Then 
     MsgBox "You cannot delete the only sheet in a workbook." 
     Exit Sub 
    End If 

    ActiveSheet.Delete 

End Sub 

编辑：我应该指出，单步调试代码产生预期的行为，并显示在迄今所做的所有测试的提示。我很难过。

Answer 1

事实证明：如果工作表中有任何数据，提示删除工作表仅会触发提示。

在我的大多数测试中，我添加一张纸然后立即尝试删除它，即使在我期待的时候也不会触发提示。

在工作表上有任何数据，然后按预期激活keybind会产生提示。

Answer 2

我刚刚试过你的代码，并出现提示。这可能是您的设置的问题。

我应该提到我将它绑定到ctrl + g并执行代码。