我的代码中有两个Application.CommandBars（“ Workbook Tabs”）。ShowPopup命令。第一个代码可以正常工作，但是第二个代码则不能。第一条命令和第二条命令执行相同的操作，只是显示了不同工作表的工作簿选项卡弹出窗口。
我在第一条命令和第二条命令之间添加了10秒的暂停。我还将第二个命令放入另一个模块，从第一个模块调用它。我还将一个子命令中的第一个命令和另一个子命令中的第二个命令分开。
Sub Test()
Dim wbkA As String
Dim wbkB As String
Workbooks("Test.xlsm").Activate
wbkA = Range("B8")
wbkB = Range("B7")
Workbooks(wbkA).Activate
Application.CommandBars("Workbook Tabs").ShowPopup
Set ws1 = ActiveSheet
ActiveSheet.Move Before:=ActiveWorkbook.Sheets(1)
Workbooks(wbkB).Activate
Application.CommandBars("Workbook Tabs").ShowPopup
Set ws2 = ActiveSheet
ActiveSheet.Move Before:=ActiveWorkbook.Sheets(1)
End Sub
如果在调试器模式下按F8键一次运行代码，则会成功。
我希望不会出现调试器窗口，并且代码应能平稳运行。