Sub HighlightOffNext()
' Paul Beverley - Version 26.05.26
' Unhighlights the (present or) next area of highlighting

doTrack = False

Selection.Collapse wdCollapseStart
Do
  Selection.MoveLeft , 1
  DoEvents
Loop Until Selection.Range.HighlightColorIndex = wdNoHighlight

myTrack = ActiveDocument.TrackRevisions
If doTrack = False Then ActiveDocument.TrackRevisions = False
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