Workbook.ChangeHistoryDuration (Excel)

Returns or sets the number of days shown in the shared workbook's change history.

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