incremento consecutivo automático

Hola
Coloca una macro en el evento libro.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Hoja1").Range("A1").Value = Sheets("Hoja1").Range("A1").Value + 1
End Sub


Esta va hacer lo siguiente, antes de imprimir colocara el numero
consecutivo, e imprimirá.

FELICIDADES!!!!!!!!!!!!
Inocampo
Cali - Colombia


"bky" escribió:

hola..
tengo una factura en excell y necesito que al imprimirla automaticamente me
incremente el número que le sigue..
me explico: mi primera factura es A001, necesito que al momento de darle
click a imprimir automaticamente incremente al número A002

por favor quien pueda ayudarme que lo haga lo agradecería mucho