Excel vba set bold specific text of string into the cell?

Question

I want to set bold some text in string.How can i do it ?

Answer 1

I would say use this dynamic formula -

Range("A1").Characters(worksheetfunction.find("Excel",Range("A1").value,1),len("Excel")).font.bold = True

Answer 2

By using Characters.

Range("A1").Characters(8, 5).Font.Bold = True