Sub HighlightOffNext()
' Paul Beverley - Version 15.04.23
' Unhighlights the next area of highlighting

doTrack = False

myTrack = ActiveDocument.TrackRevisions
If doTrack = False Then ActiveDocument.TrackRevisions = False
Selection.Collapse wdCollapseEnd
With Selection.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Text = ""
  .Wrap = wdFindStop
  .Forward = True
  .Highlight = True
  .Replacement.Text = ""
  .MatchWildcards = False
  .Execute
  DoEvents
End With
If Selection.Find.Found = True Then
  Selection.Range.HighlightColorIndex = wdNoHighlight
  Selection.Collapse wdCollapseEnd
Else
  Beep
End If
If doTrack = False Then ActiveDocument.TrackRevisions = myTrack
End Sub