Paste following code in Workbook's code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
With Me.Worksheets("Sheet1").Range("A1")
.Value = .Value + 1
End With
End Sub

HTH
--
AP

"Lozza77" a écrit dans le message de
news: ...
Is there anyway to automatically increment a number in a spreadsheet
everytime the document is saved? ie version number?