Vba Buscar y procesar archivo de texto

[pana99]

Hola. aca te paso un codigo
Espero te sirva

Código:

Dim Aux As String
   Aux = Application _
    .GetOpenFilename("Text Files (*.txt), *.txt")
If Aux <> False Then
    Cells(1, 1).Text = Aux
End If