Sub NoHighlight()

Dim Trackstatus As Boolean

'check what it was so you can return to it later
Trackstatus = ActiveDocument.TrackRevisions


'turn tracking on
ActiveDocument.TrackRevisions = False

    Selection.Range.HighlightColorIndex = wdNoHighlight
   
  
    'return to previous tracked change state
    ActiveDocument.TrackRevisions = Trackstatus

End Function