kopieren von einer in andere Tabelle

Function oeffnen(Dateiname)
Application.Workbooks.Open (Dateiname)
Dim namewks As String
For i = 1 To ActiveWorkbook.Worksheets.Count
SheetName = ActiveWorkbook.Sheets(i).Name
If InStr(1, SheetName, "Wert") Then
tmp = Dir(Dateiname & Dateien)
Windows(tmp).Activate
Sheets(SheetName).Select
Sheets(SheetName).Move After:=Workbooks("Haupttabelle_Wert.xls").Sheets(1)
Else
Windows(tmp).Activate
Sheets(SheetName).Select
Sheets(SheetName).Move After:=Workbooks("Haupttabelle_Lager.xls").Sheets(3)
End If
Next i
Workbooks.Close
End Function

beim kopieren bricht mein programm ab.
auch wenn ich die xls Datei manuell geöffnet habe?
vielen Dank für eure Hilfe :-)