Visual Basic para Aplicaciones - Pasar una hoja a un archivo de texto

Hola, mi problema es el siguiente.
Necesito pasar todas las celdas de cada hoja de un libro excel a un archivo de texto (e ir anexando los datos de cada hoja al final del archivo de texto).
¿Hay alguna forma de hacerlo mas o menos autmático? ¿alguna función o algo específico?
En caso de tener que recorrer las celdas, ¿cómo iría guardando los datos al txt?

un saludo, gracias.

Te voy a poner un ejemplo simple. Recorre 3 hojas y las columna A - D i las filas del 1 al 10
Hay otras formas pero con esta puedes controlar como deseas el fichero de texto.


Open "Fichero.TXT" for output as #1
for a=1 to 3

next
Close #1

Muchas gracias Antoni, lo probaré, pero ahora mi problema sería no coger un número fijo de columnas y/o filas, sino coger todo el contenido de la hoja. Investigaré como poder referirme a esto.

Lo dicho, gracias, un saludo.

Si todas las celdas tienen datos (Quiero decir si tienes 15 columnas y en la fila 1 hay datos en toda las celdas o en la columna A hay datos en todas las celdas) puedes hacer algo asi:

V_Fin=1
H_Fin=1
for V=1 to 10^6
next
for H=1 to 10^6
next

Es lo que hago para tratar una hoja y añadir datos del dia con una macro, busco la primera celda vacia, bueno en realidad es un poco más complejo pero no biene al caso.

Se me olvido un detalle importante y es que en la línea del IF de terminar con : EXIT FOR



' Cuenta el numero de lineas
For a = 1 To 2 ^ 36
c_Actual = Range("A" + Mid$(Str$(a), 2)).Cells
If c_Actual = "" Then n_Lin = a: c_Hasta = Mid$(Str(a - 1), 2) : EXIT FOR
Next

NOTA para el administrador del foro: Lo de insertar codigo no se previsualiza bien o yo no se como funciona.

Gracias Antoni, perdona por no haber respondido antes pero he estado con otras cosas.

Me quedo con la idea de contar las columnas y filas antes para después copiar lo que hay. Voy a probar esta idea.

Un saludo.