VBA - Einlesen von xls-Dateien - kleine? Änderung

Option Explicit
Sub Import_XLS()
Dim wsTemp As Worksheet
Dim objADO As Object
Dim arrStrings(3, 1) As Variant
Dim strPath As String, strBlatt As String
Dim strFileGesamt As String, strRef2 As String
Dim lngI As Long, Intc As Integer
On Error GoTo ErrExit
Application.ScreenUpdating = False
With Application
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
.Calculation = xlCalculationManual
.Cursor = xlWait
End With
arrStrings(0, 0) = "ErsterExport"
arrStrings(0, 1) = "ErsterExport.xls"
arrStrings(1, 0) = "ZweiterExport"
arrStrings(1, 1) = "ZweiterExport.xls"
arrStrings(2, 0) = "DritterExport"
arrStrings(2, 1) = "DritterExport.xls"
arrStrings(3, 0) = "VierterExport"
arrStrings(3, 1) = "VierterExport.xls"
strRef2 = "Sheet0$A:Z" 'normale Bereichsangabe unbedingt MIT Tabellenname & $-Zeichen
strPath = "D:\EXPORTE\" 'Datenarbeitsmappe
strBlatt = "Sheet0"
For Intc = 0 To UBound(arrStrings)
strFileGesamt = strPath & arrStrings(Intc, 1)
Sheets(arrStrings(Intc, 0)).UsedRange.ClearContents
If Dir(strFileGesamt, vbNormal)  "" Then
Set wsTemp = ActiveWorkbook.Worksheets.Add(After:=ActiveWorkbook.Worksheets( _
ActiveWorkbook.Worksheets.Count))
wsTemp.Name = "TemporäresBlatt"
Set objADO = ExcelTable(strFileGesamt, strRef2)
'Spaltennamen!
For lngI = 1 To objADO.Fields.Count
wsTemp.Cells(1, lngI) = Replace(objADO.Fields(lngI - 1).Name, "#", ".")
Next
wsTemp.Range("A2").CopyFromRecordset objADO
objADO.Close
Set objADO = Nothing
wsTemp.Columns("A:Z").Copy Worksheets(arrStrings(Intc, 0)).Range("A1")
wsTemp.Delete
'        KillFile strFileGesamt
End If
Next
ErrExit:
With Application
.StatusBar = False
.ScreenUpdating = True
.EnableEvents = True
.DisplayAlerts = True
.Calculation = xlCalculationAutomatic
.Cursor = xlDefault
End With
Set objADO = Nothing
Set wsTemp = Nothing
End Sub
Public Function ExcelTable(ByRef Path As String, ByRef SourceRange As String) As Object
Dim SQL As String
Dim Con As String
SQL = "select * from [" & SourceRange & "]"
If Mid(Path, InStrRev(Path, ".") + 1) = "xls" Then
Con = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Extended Properties=Excel 8.0;" _
& "Data Source=" & Path & ";"
ElseIf Mid(Path, InStrRev(Path, ".") + 1) Like "xls?" Then
Con = "Provider=Microsoft.ACE.OLEDB.12.0;" _
& "Extended Properties=""Excel 12.0;HDR=YES"";" _
& "Data Source=" & Path & ";"
Else
Exit Function
End If
Set ExcelTable = CreateObject("ADODB.Recordset")
ExcelTable.Open SQL, Con, 3, 1
End Function
Private Function KillFile(FileName As String, Optional Force As Boolean = True) As Long
Dim objFSO As Object
KillFile = -1
On Error GoTo ErrExit
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile FileName, Force
Exit Function
ErrExit:
KillFile = 0
End Function