enumerar paginas en celda

hola, carlos !

Necesito saber si existe alguna forma de que una celda, por ejemplo H6
cuya fila se se repite en cada hoja muestre el numero de pagina de la hoja y el total de paginas.

-> si "esa" celda correspondiera a cada hoja en la salida a la impresora...
una solucion (la mas "barata" -creo-) seria obligar (usando encabezados) a que la numeracion "caiga" EN esa celda
(probablemente ajustando los margenes de los encabezados y/o agregando algun/os salto/s de linea a la seccion)

-> si "esa" celda es parte de las filas/titulo superior en la configuracion de la hoja...
(segun tu comentario de que la celda en el titulo donde quieres la numeracion es H6)
en un modulo de codigo 'normal' ==Sub ImprimirPorPaginas()
Dim Pagina As Integer, Paginas As Integer
Paginas = ExecuteExcel4Macro("get.document(50)")
With ActiveSheet
For Pagina = 1 To Paginas
.Range("h6") = "Pag. " & Pagina & " de " & Paginas
.PrintOut From:=Pagina, To:=Pagina
Next
End With
End Sub

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.