hola pana99, mirá. lo solucioné. En realidad tu código andaba pero no terminaba con mi cometido es decir, pasar el contenido de un txt a la celda A1.
Por suerte y gracias a vos hermano, busqué y busqué y lo solucioné. Me dió muchísima bronca que en la página de Microsoft y hasta en la mismísima ayuda de Visual Basic (recordemos que estoy laburando con VBA bajo excel) figura una bocha de líneas de código cuando con lo tuyo lo abrevié una barbaridad.
Aquí el código:
Cita: Sub buscar_archivo()
Dim aux As String
aux = Application.GetSaveAsFilename
Open "" & aux & "" For Input As #1
Cells(1, 1) = Input(LOF(1), #1)
End Sub
Ojo, el GetOpen andaba pero cuando quería hacer el Open del for input me decía que el archivo ya estaba abierto. Es por eso que cambié el GetOpen por el GetSaveAs y le agregué (acá estaba OTRO GRAN PROBLEMA jaja) las comillas para transformar lo capturado por aux en un string propiamente dicho.
Desde ya, te agradezco la rapides con la que ma ayudaste
Un abrazo.