ChangeHistoryDuration Property
Returns or sets the number of days shown in the shared workbook's change history. Read/write Long.
Remarks
Any changes in the change history older than the setting for this property are removed when the workbook is closed.
Example
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