Hi Macropod

Excellent script it works exactly as I require (well nearly)

Can you tell me how to change the replaced text to bold.

I needed it highlighting but have solved that by changing the following
'.Replacement.ClearFormatting
.Replacement.Highlight = True

I have tried the following to change the font to Bold

.Replacement.Font = Bold
.Replacement.Font = BoldBi
.Replacement.Style = Bold

Clearly I am not hitting the mark and know this is very simple. Can you please help with this.

Thanks