Número de página y total de páginas

hola, Olga Yaneth !

... insertar el numero de pagina y total de paginas del libro en una celda de la hoja.
Existe una funcion para hacerlo?

-> te refieres a 'numerar' la impresion EN UNA CELDA 'en especifico' ?
a) 'esa' celda 'corresponderia' a cada hoja en la salida a la impresora ?
[p.e. la celda en la esquina superior/inferior izquierda/derecha/centro DE CADA HOJA] ?
b) 'esa' celda es parte de las filas/titulo superior en la configuracion de la hoja ?

-> si te refieres a la opcion 'a'...
una solucion [la mas 'sencilla' -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 te refieres a la opcion 'b'...
[suponiendo que la celda EN el titulo donde quieres la numeracion es 'E5']
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("e6") = "Pag. " & Pagina & "/" & Paginas
.PrintOut From:=Pagina, To:=Pagina
Next
End With
End Sub

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