paginar hojas y libro

Hola, Carlos !

... libro con 15 hojas y cuando imprimo ... completo la paginacion es algo asi: 1/51 2/51 3/51, ... 51/51
... poner ... paginacion por hoja y la general del libro: 1/3 1/51; 2/3 2/51; 3/3 3/51; 1/2 4/51; 2/2 5/51; etc.

usando los codigos de campo para los encabezados y pies de pagina, seria 'algo' [+/-] como lo siguiente:
1.- 'contar' las paginas 'a imprimirse' de cada hoja seleccionada [por si fueran varias
2.- 'restarselas' a los codigos de campo 'normales' [PA=paginas_acumuladas PD=paginas_del_documento]
3.- 'ponerlas' ANTES de [y 'poner' TAMBIEN] los codigos de campo 'normales' [p.e.]
en el modulo de codigo del libro ['ThisWorkbook'] ==Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Object, PD As Integer, PA As Integer
For Each Sh In ActiveWindow.SelectedSheets
With Sh
PD = .VPageBreaks.Count * .HPageBreaks.Count
.PageSetup.LeftFooter = "&p-" & PA & "/" & PD & " - &p/&n"
PA = PA + PD
End With
Next
End Sub

saludos,
Héctor.

P.D. no se que tan 'lento' se pueda 'volver' el proceso CON +/-15 hojas y +/-51 paginas :((