Cambiar ruta para guardar archivo txt

[jmlesc10]

hola alguien me podría ayudar tengo una macro que me genera mi archivo txt, en la unidad d:\ con el nombre según celda j5, lo que quiero ahora es que ya no me guarde en la unidad d:\ sino que me guarde mi archivo según la celda l5 ahí esta la ruta que quiero que me guarde mi archivo.

Sub GenerarTexto()

Range("o8").Select

Open ("d:\" & Range("J5").Value & ".txt") For Output As 1

captura:

Print #1, ActiveCell

ActiveCell.Offset(1, 0).Select

If ActiveCell = Empty Then GoTo cerrar

GoTo captura:

cerrar:

Close #1

Range("p5").Select

End Sub