Dante Amor respondió:
Te anexo la macro actualizada Sub ProcesarArchivosTexto() Dim Archivo As Variant Archivos = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Seleccionar archivos", , True) fila = 2 col = 1 If IsArray(Archivos) = True Then For x = 1 To...