Hi Alan,

I hope I understood your question (but I am not sure).

Supposing that you store this sequential number in sheet1, cell A1, you
can use following code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
worksheets("sheet2").range("a1").value=worksheets( "sheet2").range("a1").value+1
End Sub

adjust the code to your needs.

It will add 1 to value of cell A1 on sheet1 and application will
continue showing the print dialog. What should happen if user cancels
it?

Regards,
Ivan