Cambiar varios archivos txt a excel

Va una macro con ejemplo de convertir un archivo con un nombre especifico, si es lo que esta buscando.

Sub Macro1()

'sustituya la unidad y el nombre de directorio donde tiene su archivo, en la siguiente línea esta el nombre del archivo, también lo sustituye por el nombre correcto, en la ultima línea sustituye la ubicación en donde serán guardados y el nombre del archivo.

    ChDir "C:\Archivos"
    Workbooks.OpenText Filename:="C:\Archivos\archivo1.txt", Origin:=xlMSDOS, StartRow _
        :=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=True, OtherChar:="|", FieldInfo:=Array(Array(1, 1 _
        ), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:=True
    ActiveWorkbook.Save
    Range("D4").Select
    ActiveWorkbook.SaveAs Filename:="C:\Archivos\archivo1.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWorkbook.Close
End Sub