打开和关闭调试窗口时，代码运行方式不同

Question

当我在调试窗口打开的情况下运行代码时，一切正常，但是当我在调试窗口关闭的情况下运行完全相同的代码时，发生了奇怪的事情，例如，它不会将数据复制/粘贴到新的工作表中，不能从字典中将值填充到工作表中，否则会弄乱目标工作表名称/代号。

我偶然替换了一个基于工作表代号返回工作表的函数来解决此问题，但是此函数之前已被广泛使用，并且没有任何问题。我确实在我的潜艇中依赖此功能，因此我不可能在当前使用的工具中替换此功能。

Public Function Code2Sheet(wbkWbk As Workbook, strSheetCodeName As String) As Worksheet

    Dim shtSht As Worksheet

    For Each shtSht In wbkWbk.Worksheets
        If shtSht.CodeName = strSheetCodeName Then
            Set Code2Sheet = shtSht
            Exit Function
        End If
    Next shtSht

End Function

请查看我遇到的问题之一。我突出显示了无效的代码。当我关闭调试窗口时，它只是不填充工作表中的值：

另一个奇怪的事情是，当我添加一个新标签时，新标签将不会显示在对象列表中。我认为只有在添加新标签页后打开调试窗口，它才会显示