[VBA] de-highlight the highlighted color

[smallxyz]

The following code is attached on a Userform.
On the UF, 3 color option buttons are available for choice, named respectively oRed, oGreen, oYellow.
Once user click on any option button, a click even is triggered with the following sub-procedure.
Basically the code aims to remove any one of the highlighted background colors, as selected by user.

However, it does not work well and I am confused which part goes wrong.
This is my another attempt in learning Word VBA. Hope also to receive some advice on improving the coding.
Thanks very much!



Sub Dehighlight()
Dim rng As Range
Set rng = Selection.Range
With Selection.Range
'-------------------
' f
.Find.ClearFormatting
.Find.Highlight = True
'-------------------
While .Find.Execute(Wrap:=wdFindContinue, Forward:=True) And .InRange(rng)
If .HighlightColorIndex = Switch(oRed.Value = True, wdRed, _
oYellow.Value = True, wdYellow, _
oGreen.Value = True, wdGreen) Then
.HighlightColorIndex = wdNoHighlight
End If
Wend


End With
Unload Me
End Sub

[gmaxey]

What part doesn't work well? I wouldn't have coded it that way (have never used the Switch function in over 20 years) but as best I could tell it worked.

Here is another way:


Private Sub oYellow_Click()
Dehighlight wdYellow
End Sub
Sub Dehighlight(lngColorIndex)
Dim oRng As Range
Set oRng = Selection.Range
With oRng.Find
.ClearFormatting
.Highlight = True
.Wrap = wdFindStop
.Forward = True
Do While .Execute
If oRng.HighlightColorIndex = lngColorIndex Then
If oRng.InRange(Selection.Range) Then
oRng.HighlightColorIndex = wdNoHighlight
Else
Exit Do
End If
End If
oRng.Collapse wdCollapseEnd
Loop
End With
End Sub