Crera txt con nombre predifinido

[GABRIEL MEZA BARRETO]

Hola a todos, necesito su valiosa ayuda para poder realizar una modificacion a un archivo a una macro q me la pasaron y que no entiendo mucho del tema,. tengo la siguiente sentencia;

Sub Rectánguloredondeado_Haga_clic_en()

Open ThisWorkbook.Path & Application.PathSeparator & "LE2041509465620150100080100001111.txt" For Output As #1

'Open "TXTBCP.txt" For Output As #1

Range("AL2").Select

Do While ActiveCell.Value <> ""

dato = ActiveCell.Value

Print #1, dato

ActiveCell.Offset(1, 0).Select

Loop

Close #1

End Sub

la parte "201501", que es parte del nombre del archivo saliente tiene q variar mes a mes y lo estoy realizando de manera manual ingresando al editor de proyectos. quisiera q este dato se actualize de manera automatica o haciendole referencia a una celda de la misma hoja "celda C1", y a la vez quisiera q me orienten o ayuden en la generacion total del txt, dado q en el archivo adjunto utilizo una columna auxiliar donde concateno todas las celdas necesarias separadas por un palote "|" para recien generar mi txt con el boton de la macro. por lo tanto desearia que toda esta labor se haga de forma automatica, osea todo con el boton de la macro. ojala puedan ayudarme, Gracias ¡¡¡

creartxt.rar