Contador para excel que se incremente al imprimir

Hola, lo primero daros las gracias por este fantástico foro de ayuda, que aunque llevo mucho tiempo leyendo, nunca me había registrado, pues siempre encontraba la solución, así que nunca antes os había podido dar las gracias, eso mucha, muchas gracias por todas las dudas que me habéis solucionado.

Buscando por este foro he encontrado lo que quiero, pero NO funciona en openoffice 3.3.0, que es exactamente eso, crear un contador y que se incremente al imprimir la hoja activa.

Lo que he encontrado es esto.

Esta macro que hace las 2 cosas (imprime e incrementa el contador)
tendrás que copiarla en un módulo del editor. En tu hoja dibujá un botón
con barra Cuadro de controles o Formulario y asociala a esta rutina.
Si la impresión se realiza manualmente y solo necesitás la rutina
que incremente el contador, copiá esto en el objeto ThisWorkbook del
Editor:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
activesheet.range("A5").value = activesheet.range("A5").value + 1
End Sub

Ahora el problema es que la he hecho en Excel 2003 y funciona correctamente, pero NO en open office, y no hay manera.

Busco ese resultado, y no se si hay otro modo de hacerlo, supongo que si en excel lo hay, puede que funcione también en Open Office, ¿no?.

Espero vuestras aportaciones a mi problema.

Muchas gracias