Change from under to highlight

[richiwatts]

How to I change this:

I changed one of my search and replace macros from

.Replacement.Font.Underline = wdUnderlineWavy
to
.Replacement.Highlight = True

And then on another Macro I have

If Selection.Font.Underline <> wdUnderlineWavy Then

How do i chnage this so that it does the same for the highlighted text? I tried

If Selection.Highlight <> True Then
But this didn't work. What do I need to do