Try removing the rng.Find.Replacement.ClearFormatting() - it seems like a pretty obvious line of code that may be causing your problem though I'm not familiar with these methods it seems likely. (p.s. Edit was : Sorted formatting.)