Sub trac() Dim blnTrackChangesOn As Boolean blnTrackChangesOn = ActiveDocument.TrackRevisions ActiveDocument.TrackRevisions = False ActiveDocument.TrackRevisions = blnTrackChangesOn End Sub