Abrir archivos con macros

Estimados es posible abrir todos los archivos de una carpeta como txt sin importar el nombre o la extensión del archivo, les dejo la macro para su revisión

ChDir "D:\traspaso"
arch = Dir("*.dat")
Set h1 = Sheets.Add
ActiveSheet.Name = "interfaz"
Do While arch <> ""
uf = h1.Range("A1").SpecialCells(xlLastCell).Row + 1
Workbooks.OpenText _
Filename:=arch, _
Origin:=xlMSDOS, _
StartRow:=2, _
DataType:=xlFixedWidth, _
FieldInfo:=Array(0, 2), _
TrailingMinusNumbers:=True
ActiveSheet.UsedRange.Copy h1.Cells(uf, "A")
ActiveWindow.Close
arch = Dir()