Necesito guardar un archivo con lo que contiene una celda?

"Bapz" escribió en el mensaje

Necesito Guardar un archivo con el contenido de una celda, ya lo habia
hecho pero no recuerdo como, alguien me puede recordar como?

Una opción:

Crea un archivo, lo borra si existe, un archivo en c:\ llamado prueba.txt y
escribe el contenido de la celda A1 de la hoja activa.

Sub test()
Dim NumeroArchivo As Integer
NumeroArchivo = FreeFile ' Obtiene un número
' de archivo que no se ha utilizado.
Open "c:\PRUEBA.txt" For Output As #NumeroArchivo
' Crea el nombre de archivo.
Print #NumeroArchivo, Range("A1") 'Inserta texto.
Close #NumeroArchivo ' Cierra el archivo.
End Sub

Un saludo,
Juan