Como puedo hacer un numerador

hola, [de nuevo], Anibal !

existe una alternativa para omitir -posibles- errores en cuanto a si la fuente sera 'negrita' [en castellano] o 'bold' [si en ingles]...
-> usando las macro-funciones del 'viejo' excel v.4 [que incluso se espera sean mas 'rapidas' que un .PageSetUp] :))

1) la macro-funcion [y sus argumentos] es la siguiente:
PAGE.SETUP(head, foot, left, right, top, bot, hdng, grid, h_cntr, v_cntr, orient, paper_size, scale, pg_num, pg_order, bw_cells, quality, head_margin, foot_margin, notes, draft)

2) en el siguiente ejemplo solo estoy usando los argumentos 'head' [en vacio] y 'foot'
y los codigos de formato son:
&L -> Left alignment
&C -> Center alighment
&R -> Right alignment
&B -> Bold font
&"fontname, fontstyle"
&nn -> Font points size

3) toma nota que en algunas ocasiones se requiere utilizar 'dobles/triples/cuadruples/ y hasta quintuples' comillas dobles :))
para 'meter' todo un rebuscado texto/cadena/string/... como unico argumento de una funcion de XLM
-> usando el metodo ExecuteExcel4Macro

el ejemplo seria el siguiente:

Sub Imprimir_hojas_numeradas()
Dim n As Integer
For n = [a1] To [b1]
Application.ExecuteExcel4Macro _
"page.setup("""",""&r&b&10&""""courier new""""" & Format(n, "000") & """)"
ActiveSheet.PrintPreview ' .PrintOut
Next
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ la historia de esta consulta __

Ahora me surgio otra necesidad, sera posible que los datos de inicio y fin esten en alguna celda de la planilla.
Tambien quisiera la posibilidad de cambiar el tipo, tama#o y color de la fuente. Sera posible ?

-> EXCEPTUANDO el color de fuente en la configuracion de encabezados y pie de pagina :-((
prueba con las siguientes modificaciones [suponiendo que el inicio esta en 'A1' y el final esta en 'B1']
estableciendo el tipo de letra 'Courier New' con un tama#o de 10 puntos:

Sub Imprimir_hojas_numeradas()
Dim n As Integer
For n = [a1] To [b1]
ActiveSheet.PageSetup.RightFooter = _
"&""courier new,negrita""&10 " & Format(n, "000")
ActiveSheet.PrintPreview ' .PrintOut
Next
End Sub

-> revisa la ayuda en linea [vba] para los codigos de formato en los encabezados y pies de pagina
sobre todo, porque negrita NO funcionara si excel no esta en castellano [p.e. en ingles -> bold] :D