dear paul
many thanks, this what i need to do.
sorry for bad explnation.
please, may better if i put excel file beside the documents and set path to this folder and no need to choose it every time i use macro.

below the text i edited in your code:
i think we need to delete .clear formatting ?

With .Find
.Font.Name = "Tahoma"
' need to delete this line?, .ClearFormatting
.Replacement
.Font.Name = "IndexBlack"
' need to delete this line .ClearFormatting
' might use it later .MatchWholeWord = True
.MatchCase = True

many thanks