I've had a look at you documents. It seems I wasted my time giving advice in your other thread, as you clearly haven't implemented the code I provided.

As for your current problem, you cannot use a string variable for a Find/Replace where part of either the Find criterion or the Replace criterion has any kind of formatting applied. You could try copying the Excel cell (ie SrcWs.Cells(r, 2).Copy) and using '.Replacement.Text = "^c"', but that will result in the replacement containing your replacement content in a table cell, which you'd then have to convert to text.

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