Como puedo dar formato (negritas) en una formula?

En realidad las formulas no pueden lograr eso. con VBA (macros) se
podria, siempre y cuando en la celda no hubiese una formula, sino
texto o caractertes. En todo caso, la solucion es obtener el resultado
de dicha formula por medio de VBA, y asi se le podria dar formato.


Ejm:

Dim largo As String
largo = Len(Range("a4"))
[a5] = "El precios es de " & [a4]
With [a5].Characters(Start:, Length:=largo).Font

.FontStyle = "Negrita"
End With

Abraham