Dateien �ffnen und Modul einf�gen

Alle Exceldateien in einem bestimmten Ordner soll ein Modul hinzugef�gt werden.
Sub Modul_einf�gen()
    Application.DisplayAlerts = False
    'in diesem Ordner liegen alle Dateien
    Ordner = "c:\temp\"
    'dies ist das einzuf�gende Modul
    Moduldateiname = "C:\Temp\Modul1.bas"
    'so wird das Modul benannt
    Modulname = "Neues_Modul"
    'alle Dateien aus "Ordner �ffnen"
    Application.ScreenUpdating = False
    TmpDat = Dir(Ordner & "*.xls")
    Do While TmpDat <> ""
        Workbooks.Open Ordner & TmpDat
        TmpDat = Dir()
    Loop
    'in alle ge�ffnete Arbeitsmappen
    'das Modul einf�gen, Datei schlie�en mit Speicherung
    On Error Resume Next
    For x = 1 To Workbooks.Count
        With Workbooks(Workbooks(x).Name).VBProject
            .VBComponents.Import Moduldateiname
            .VBComponents(Workbooks(Workbooks(x).Name).VBProject _
            .VBComponents.Count).Name = Modulname
        End With
        'Workbooks(x).Close True
    Next x
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub