Returns or sets the number of days shown in the shared workbook's change history. Read/write Long.
Any changes in the change history older than the setting for this property are removed when the workbook is closed.
This example sets the number of days shown in the change history for the active workbook if change tracking is enabled. Any changes in the change history older than the setting for this property are removed when the workbook is closed.
With ActiveWorkbook
If .KeepChangeHistory Then
.ChangeHistoryDuration = 7
End If
End With