Juoksevasta numeroinnista

moduuliin...

Sub Auto_Open()
x = 1
Range("A1") = x
End

ThisWorkbook moduuliin...

Public x As Integer
Public y As Integer

Private Sub Workbook_BeforePrint(Cancel As Boolean)
' muuta lukua 3 riippuen siitä, montako tulostusta haluat, ennenkuin laskurin arvo kasvaa

If y Mod 3 = 0 Then
x = x 1
End If
y = y 1
Range("A1") = x
End Sub

Jos minulla 0n 1000034 solussa L4. Haluan että arvo kasvaa joka tulosteeseen yhdellä eli 1000035, 1000036, 1000037 jne ns juokseva sarjanumero. Perus excel käyttäjänä en osannut tehdä edelliseen koodiin muokkausta niin että olisin saanut tuon tehtyä.