Workbook.RevisionNumber (Excel)

Returns the number of times the workbook has been saved while open as a shared list. If the workbook is open in exclusive mode, this property returns 0 (zero).

The RevisionNumber property is updated only when the local copy of the workbook is saved, not when remote copies are saved.

Dim lngRevisionNumber As Long
lngRevisionNumber = ActiveWorkbook.RevisionNumber