Automatic numbering

[mday36]

I am trying to create some entrance tickets for a charity event (4 ti
on A4 paper). The ticket numbers will double up as raffle tickets. M
problem is that I have numbers 001, 002, 003, 004 on the page. A
present, I am manually changing the numbers after printing each page
so 001 becomes 005, 002 becomes 006 and so on. I am sure it i
possible to advance the numbers by 4 by e.g. simply pressing a macro'
button before printing the next page with the advanced numbers. Cell
containing the numbers are C9 (001); I9 (002); C20 (003) and I20 (004)
Grateful for any ideas. Thank you.

Mar

 

[Vasant Nanavati]

Sub IncreaseBy4()
Range("A1") = Range("A1") + 4
Range("B1") = Range("B1") + 4
Range("C1") = Range("C1") + 4
Range("D1") = Range("D1") + 4
End Sub

Change the range references to suit.