Well you have to decide whether you want the tracking to show. Your code simply retains whatever the existing setting is and can therefore be reduced to one line; merely turning on track changes doesn't change whether they're displayed. If, however, you want to turn on track changes without displaying them, you need something like:
Code:
Sub Demo()
ActiveDocument.TrackRevisions = True
ActiveDocument.ShowRevisions = False
End Sub