Clear specific highlighting

[peartneil]

I'm trying to get the following code to work to clear highlighting of a specific color. Not sure what I'm doing wrong for it to scan the entire document for all instances of the color highlighting and remove it:

Sub remove_highlight()
'
' remove_highlight Macro
'
'
    Dim hiliRng As Range
    Set hiliRng = ActiveDocument.Range
   With hiliRng.Find
        .Highlight = True
        .Execute
            If hiliRng.HighlightColorIndex = wdColorTan Then
                hiliRng.HighlightColorIndex = wdNoHighlight
            End If
    End With
End Sub