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並執行代碼。