Excel2010, VBE Prozedur funktioniert nicht auf allen Rechnern

Hallo NG,
folgende Prozedur kopiert ein Standard-Modul von einer Mappe in eine andere:
Sub CopyStandardmodul()

Dim vbC As Object
Dim iRow As Integer
Dim sCode As String
On Error GoTo ERRORHANDLER
With ThisWorkbook.VBProject.VBComponents("Modul1").codemodule
sCode = .Lines(1, .CountOfLines)
End With
Set vbC = Workbooks("MappeZ.xlsm").VBProject.VBComponents.Add(1)
vbC.codemodule.DeleteLines 1, vbC.codemodule.CountOfLines
vbC.codemodule.AddFromString sCode
Exit Sub
ERRORHANDLER:
MsgBox "Das Makro konnte nicht kopiert werden!"
End Sub
Das funktioniert auch problemlos, leider nicht auf fremdem Rechner.
Gleiches Betriebssystem, gleiche Excel-Version (Excel14), gleiche Verweise aktiviert.
Die Prozedur steigt aus bei folgender Codezeile:
With ThisWorkbook.VBProject.VBComponents("Modul1").codemodule
Wer hat eine Idee?
Gruß Helmut
.

Relevant Pages