Private Sub Workbook_Open()

With Worksheets("Sheet1").Range("B3")

.Value = .Valaue + 1
End With

End Sub

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code


--
__________________________________
HTH

Bob

"Dee" wrote in message
...
Hi,

In cell B3, I have a worksheet version number that starts with 1.

Various people view, edit and print the file. I would like the version
number to increment by 1 each time the worksheet is opened and changes are
made.

Perhaps triggered upon open and the person can either view and not keep
changes to cancel the incrementation, or make changes and save to keep it?

Any help would be greatly appreciated!