|I am assuming that you mean you want to bold the portion of the text in A1 that came from A3, A5 and A8.|
If that is correct, you cannot do it directly in A1 because you cannot bold text that is the result of a formula. The cell that contains the formula does not contain the actual text, so there is nothing to bold.
What you can do is put your formula in another cell and then have the macro copy the result of the formula into A1. Now that A1 really does contain text, you can bold specific characters.
In this example, I chose B1 to contain the formula. You can chose any cell you want, and even hide it if you don't want to see the extraneous "text".
'Copy Text From B1 to A1
Range("A1") = Range("B1").Value
'Loop through A3, A5 and A8
For Each txtStr In Range("A3,A5,A8")
'Determine Start Position of text within A1
startChar = InStr(1, Range("A1"), txtStr)
'Determine Length of text
lenBold = Len(txtStr)
'Bold specific characters
Range("A1").Characters(startChar, lenBold).Font.Bold = True
Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.
message edited by DerbyDad03