Sub Toggle_Track_Changes_Final() With ActiveDocument.ActiveWindow.View .RevisionsView = wdRevisionsViewFinal .ShowRevisionsAndComments = Not .ShowRevisionsAndComments End With End Sub