Eu tenho a tarefa de adicionar umWorkBook_Open() método para várias pastas de trabalho do Excel. Consegui escrever um script que adiciona um módulo (marcado em vermelho) com as linhas de código necessárias, mas preciso noDieseArbeitsmappe(marcado em verde) para iniciar automaticamente quando a pasta de trabalho é aberta.

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

Este é o código que tenho agora. Tenho certeza de que o erro está na linha 1 ao definir o xlmodule, mas não consigo descobrir como fazer referência aDieseArbeitsmappe. Agradeço antecipadamente por sua ajuda.