So, notwithstanding all that you've posted before, you don't want only to change the font - in some cases you want to change the letters to something else as well. In that case, you can use the macro in the link I posted in post #2 in this thread. All you need to add to the code is the specification for the fonts to find and replace. For example, by adding:
Code:
.Font.Name = "Tahoma"
.Replacement.Font.Name = "IndexBlack"
before:
.Text = Split(xlFList, "|")(I)
You also need to delete:
.MatchWholeWord = True