This extremely simple macro increments the value in a cell. You could use this for unique id's on invoices, delivery notes, etc...
Sub Increment()
' change A1 to the cell you wish to increment
Range("A1").Value = Range("A1").Value + 1
End Sub
Comments