HI friend,

I have the below code to undo/remove highlight, but this will remove at one location.

can any one modify the code to removed specific highlighted color in entire document.

Sub SearchAnyHighlight()

Dim hiliRng As Range
Set hiliRng = ActiveDocument.Content


With hiliRng.Find
.Highlight = True
.Execute
If hiliRng.Find.Found Then
MsgBox "You can't close Active Document"


Do While hiliRng.Find.Execute

If hiliRng.HighlightColorIndex = wdBrightGreen Then
hiliRng.HighlightColorIndex = wdNoHighlight
End If
Loop
End If
End With
End Sub