Macro to have a list with automatic numbering

[allejot]

Hi colleagues,

the context of my question is "Invoice Numbering".

I would like to have a sheet where I can have an incremental number. Every time I run the macro it should strikeout the last number and it provides me an increemental number.

I used such a sheet in a previous job and I cannot find it online. Any of you can kindly help me out?

 

[Smitty]

Welcome to the Board!

You can do something like this:

With Sheets("Invoice")
  .Range("A1").Value = .Range("A1").Value +1
End With

HTH,

 

[allejot]

thanks!!