What is the 'Find' text and 'Replace' text when the error occurs?
And, since you are specifying the Find and Replace fonts, your Find/Replace code should include the line:
.Format = True

You should also replace:
.Wrap = wdFindStop
with:
.Wrap = wdFindContinue

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]