通过button执行VBA代码

我想将下面的VBA代码分配给一个button。 这就是我所做的：

1.单击开发人员选项和“插入”2.插入 – >表格控制 – >button。 当它促使我select一个macros时，我select了我的代码，它是WBR。 但是，当我点击它，它不会执行（也没有错误抛出）

我不确定是什么导致了这个问题。

我的代码是非常巨大的，只是给了样本：

Sub WBR() Dim Count1Criteria As Variant Dim Count3Criteria As Variant Dim test As Variant Dim wf As WorksheetFunction Set wf = Application.WorksheetFunction Filter1InSummary = Array(Array("AH4", "Latency", "Pass/Fail", "Pass"), _ Array("AH5", "Latency", "Pass/Fail", "Fail"), _ Array("AH44", "TT", "Able to repro", "Not Tested"), _ Array("AH47", "TT", "Reason for Reasssignment/Resolving", "Duplicate TT"), _ Array("AH51", "TT", "Able to repro", "Yes"), _ Array("AH52", "TT", "Able to repro", "No"), _ Array("AH61", "Reactive", "Item Type", "Item"), _ Array("AH46", "TT", "Reason for Reasssignment/Resolving", "Hardware Unavailable"), _ Array("AH41", "TT", "Severity", "2"), _ Array("AH62", "Reactive", "Trigger Key Name", "*App Crashes*"), _ Array("AH63", "Reactive", "Trigger Key Name", "*Download*"), _ Array("AH49", "TT", "Reason for Reasssignment/Resolving", "Insufficient Information"), _ Array("AH15", "Latency", "Comments", "*Waived since unable to repro issue*"), _ Array("AH16", "Latency", "Comments", "*Waived due to business reasons*"), _ Array("AH18", "Non-Mhowls", "Type of testing", "Full Testing"), _ Array("AH19", "Non-Mhowls", "Type of testing", "Upgrade Testing")) For Each test In Filter1InSummary With Worksheets(test(1)) Range(test(0)) = wf.CountIfs(.Rows(1).Find(test(2), lookat:=xlWhole).EntireColumn, test(3)) End With Next