KeepChangeHistory Property Example

This example sets the number of days shown in the change history for the active workbook if change tracking is enabled.

With ActiveWorkbook
    If .KeepChangeHistory Then
        .ChangeHistoryDuration = 7
    End If
End With