Недостаточно памяти при открытии золотого файла xlsm

Question

Я добавил несколько кодов VBA в свою рабочую книгу (myworkbook.xlsm) для функции: когда моя рабочая книга открыта, код VBA скопирует один лист из золотой рабочей книги (golden.xlsm). Я добавил Sub Workbook_Open в объект «ThisWorkbook» в myworkbook.xlsm, копия выполнена успешно. Но проблема в том, что когда я использую «Alt + F11», чтобы открыть редактор Visual Basic, появится окно сообщения с жалобой «Недостаточно памяти», и я больше не могу редактировать свой другой код VBA.

Я пытаюсь закомментировать некоторый код в обработчике Workbook_Open, следующая строка приведет к этой проблеме:

Set goldenWorkbook = Workbooks.Open("golden.xlsm")

Мой код добавлен для события открытия объекта "ThisWorkbook"

Private Sub Workbook_Open()
    Dim goldenWorkbook As Workbook
    Application.ScreenUpdating = False
    Debug.Print "Hello~you just open the file"
    Set goldenWorkbook = Workbooks.Open("golden.xlsm")
    goldenWorkbook.Sheets("Common").Copy Before:=ThisWorkbook.Sheets(1)
    goldenWorkbook.Close True
    Application.ScreenUpdating = True
    Set goldenWorkbook = Nothing

End Sub