复制工作表时Excel VBA崩溃

Question

Excel正在崩溃＆＃39; ws.Copy＆＃39;

下面的代码行

详细说明：

• 通过我的~2500行代码
，大约80％的时间调用此函数
• 仅在运行完整代码
时，自行运行相关子例程时不会崩溃
• 我在Excel 2013上运行此功能
• 我可以手动复制工作表，而不会崩溃
• 在运行脚本和步进（F8）
时都会崩溃
• 程序仅在Windows计算机上运行时崩溃
• 它并不总是崩溃，这只是随机开始发生

我尝试过的事情：

• 我尝试过“DoEvents＆＃39;在函数调用之前和之后
• 我已经尝试过#App; Application.wait＆＃39;

    Option Explicit
    ...

    Function Copy_Template(dict As Collection)
        Dim strKey As Variant
        Dim ws As Worksheet

        Set ws = Sheets("Template")

        For Each strKey In dict
            If strKey <> "" Then
                ' Windows machine is crashing at this line for no reason!!!
                ws.Copy After:=Sheets("Summary")
                ActiveSheet.Name = strKey
            End If
        Next
    End Function