Problem... Need your great help...

[cssriraman]

Hi,

Use the following code:

With objWdRange.Find
    Do While .Execute(FindText:=wdText, Format:=False, MatchCase:=True, _
                      MatchWholeWord:=False, MatchAllWordForms:=False) = True
        Count = Count + 1
        If .Found Then
            If Checkbox1.Value = True Then
                objWdRange.Range.HighlightColorIndex = wdYellow
            End If
        End If
    Loop
End With

___________________
CS.