Workbook im selben Worksheet öffnen

Sub getFile()
Dim directory As String, Filename As String, sheet As Worksheet, total As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
directory = "C:\Users\yuecel\Downloads\1.Praxisphase\Performance Data\December"
Filename = Dir(directory & "*.xlsm?")
Do While Filename  ""
Workbooks.Open (directory & Filename)
For Each sheet In Workbooks(Filename).Worksheets
total = Workbooks("import-sheets.xls").Worksheets.Count
Workbooks(Filename).Worksheets(sheet.Name).Copy _
after:=Workbooks("import-sheets.xls").Worksheets(total)
Next sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub