Importar varios archivos de texto en una sola hoja de Excel

Estaba buscando una macro para importar varios archivos de texto en una sola hoja de excel y encontré esta macro:

------------------------------------------------------------------------------------------------------------------

Sub ProcesarArchivosTexto()
Dim Archivo As Variant
Archivos = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Seleccionar archivos", , True)
If IsArray(Archivos) = True Then
Workbooks.Add
For x = 1 To UBound(Archivos)
ProcesarArchivo Archivos(x)
Next
MsgBox "*** Se han procesado " & UBound(Archivos) & " archivos ***"
Application.Dialogs(xlDialogSaveAs).Show
ActiveWorkbook.Close
Else
MsgBox "*** No se han seleccionado archivos. Proceso cancelado ***"
End If
End Sub
Private Sub ProcesarArchivo(Archivo As Variant)
celda = Cells(10000, 1).End(xlUp).Offset(1).Row
Cells(celda, 1) = Mid(Archivo, Len(Archivo) - 11, 8)
celda = celda + 1
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & Archivo, Destination:=Cells(celda, 1))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = "|"
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

---------------------------------------------------------------------------------------------------------------------

Resulta que cuando ejecuto la MACRO me genera el siguiente error:

Microsoft Visual Basic
Error del sistema &H80070057 (-2147024809)

Podrían por favor ayudarme con ese error