A mi me corre bien y no me pone comillas, prueba modif. Lo sig. Actualmente tienes:

Rem captura el código en una variable
Codigo = ActiveCell

Sambia por:

Codigo = Val(ActiveCell)

Sino deberá ser alguna config....

Pues se me olvido decir que las columnas tienen numeros y texto

Ejem:   12AB21XZ1

Asi es como tendria que quedar en el bloc de notas txt.

Asi es como me sale   "12AB21XZ1"

Y quiero eliminar las comillas.

Gracias a los dos.

Rafa.

Private Sub CommandButton2_Click()
Sheets("Hoja1"). Activate
If Sheets("Hoja1"). Activate Then
Range("A1"). Select
Rem si no hay ningún dato en A1 que no archive de nuevo
If ActiveCell = Empty Then GoTo salte
Rem abre un archivo en la unidad c con el nombre de datos. Txt
Rem en forma de añadir Temporal (Output) en el área de almacenamiento #1
Open "c:\datos2. Txt" For Output As 1
Rem activa una etiqueta para poder regresar
regresa:
Rem captura el código en una variable
Codigo = Codigo & "," & ActiveCell
Rem escribe los datos de Codigo en el archivo txt
Rem baja un renglón para el siguiente nombre
ActiveCell. Offset(1, 0). Select
Rem si la celda esta vacía que no regrese ya
If ActiveCell = Empty Then GoTo salte
Rem regresa a escribir el siguiente nombre en el archivo
GoTo regresa:
salte:

Print #1, Mid(Codigo, 2, Len(Codigo))
Rem se acabo
Rem cierra el archivo
Close #1
End If
End Sub

Sólo modifiqué algunas cosillas

Hola Pavel

Lo que pasa es que me deja los datos en el txt. En la misma linea y yo necesito ponerlos uno debajo de otro , asi:

12AA12DX

12XX2CVC

213XCVS2

Gracias por tu ayuda.

Rafa.

Hola Rafa, disculpa por el retraso pero estuve ausente algunos días, efectivamente el código anterior los pone en una sóla fila, que es la manera como lo ponía el original, pero este lo pone en columna como creo que lo quieres.... Saludos

Private Sub CommandButton2_Click()
Sheets("Hoja1"). Activate
If Sheets("Hoja1"). Activate Then
Range("A1"). Select
Rem si no hay ningún dato en A1 que no archive de nuevo
If ActiveCell = Empty Then GoTo salte
Rem abre un archivo en la unidad c con el nombre de datos. Txt
Rem en forma de añadir Temporal (Output) en el área de almacenamiento #1
Open "c:\datos. Txt" For Output As 1
Rem activa una etiqueta para poder regresar
regresa:
Rem captura el código en una variable
Codigo = ActiveCell
Rem escribe los datos de Codigo en el archivo txt
Print #1, Codigo
Rem baja un renglón para el siguiente nombre
ActiveCell. Offset(1, 0). Select
Rem si la celda esta vacía que no regrese ya
If ActiveCell = Empty Then GoTo salte
Rem regresa a escribir el siguiente nombre en el archivo
GoTo regresa:
salte:
Rem se acabo
Rem cierra el archivo
Close #1
End If
End Sub

hola: de visita en este foro la verdad es que me sirvio mucho tu codigo solo tengo una pequeña duda es posible este codigo para un documento con mas celadas?

Gracias

Hola, la macro deja de correr hasta que encuentra una celda vacía:

If ActiveCell = Empty Then GoTo salte

O a que te refieres específicamente?