я есть задача добавитьWorkBook_Open() метод многочисленных книг Excel. Мне удалось написать скрипт, который добавляет модуль (помеченный красным) с необходимыми строками кода, но он мне нужен вDieseArbeitsmappe(отмечен зеленым) для автоматического запуска при открытии рабочей книги.

Set xlmodule = objworkbook.VBProject.VBComponents.Add(1)
strCode = _
    "Sub WorkBook_Open()" & vbCr & _
    "   Application.Run (""'CommonMacro.xlsm'!Workbook_Open"")" & vbCr & _
    "End Sub"
xlmodule.CodeModule.AddFromString strCode

Это код, который у меня есть сейчас. Я уверен, что ошибка в строке 1 при установке xlmodule, но я не могу понять, как ссылаться наDieseArbeitsmappe, Заранее спасибо за помощь.