Fehler bei Woorksheets.Copy-Befehl

Private Sub Test()
Dim importApp As Object
Dim wbImport As Workbook
Dim sFilePath As String
sFilePath = "C:\Test2.xls"
Set importApp = CreateObject("Excel.Application")
importApp.Workbooks.Open m_FilePath, 0, False
Set wbImport = m_ImportAplication.ActiveWorkbook
Dim ws As Worksheet
For Each ws In wsImport.Worksheets
' Diese Zeile erzeugt folgender Fehler:
' Die Copy-Metode des WorkSheets konnte nicht ausgeführt werden
importApp.Workbooks(wbImport.Name).Worksheets(ws.Name).Copy _
Before:=Workbooks(ActiveWorkbook.Name).Worksheets(1)
Next
Set m_WorkBookImport = Nothing
Set m_ImportAplication = Nothing
End Sub