Thank you so much Paul. The code is exactly what I was looking for.

If I want to use it only for selected text what changes do I need to make? I have tried putting Selection.Find, but does not seems to work.