Duda para generar un txt con un macro

[Pablus00]

Hola Abrahamvj, hice unas pruebas y tengo el siguiente problema:

Usando "guardar como", me cambia el archivo en uso a la extension txt, y no es lo que busco, sino generar un txt nuevo de una hoja determinada con la extencion txt y que el archivo en uso siga siendo de excel.

La macro que me genera es:

Sub Macro2()

ChDir "C:\Documents and Settings\Administrador\Escritorio"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Administrador\Escritorio\" & Range("b4").Value & ".txt", FileFormat:= _
xlUnicodeText, CreateBackup:=False
End Sub

PD: La macro adjunta tambien tiene un error en el nombre, ya que no logro asignarle un nombre variable al archivo a crear (txt)

Alguna idea de como sigo? :D gracias por adelantado