In diesem Beispiel wird das dritte Zeichen in Zelle A1 der Sheet1 fett formatiert.
With Worksheets("Sheet1").Range("A1") .Value = "abcdefg" .Characters(3, 1).Font.Bold = True End With