preguntar por archivo a exportar desde macro

Te paso el siguiente codigo para que llames a los archivbos no importando la
ubicación de los mismos

' SOLICITA EL ARCHIVO DE TEXTO A PROCESAR
With Texto
If .Show = -1 Then
For Each Ruta In .SelectedItems
Destino = Ruta
Next Ruta
Else
Exit Sub
End If
End With
' PROCESA EL ARCHIVO SELECCIONADO PARA COLOCARLO EN COLUMNAS
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & Destino, Destination:=Range("A15"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
.TextFileFixedColumnWidths = Array(7, 2, 11, 16, 19)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With


"Paolita" wrote:

Tengo una macro de donde llamo un txt para abrirlo en el excel, el
cual me resulta bien, le pido al usuario que le ponga el mismo nombre
del archivo excel y la macro lo busca en el mismo directorio del
excel, necesito exportar 2 archivo txt al excel y necesito que el
usuario los llame de forma libre, como puedo preguntar desde una macro
por los txt que deseo abrir en el excel