Preserve font color in VBA

[Mark Boyle]

I am using the below code to append user initials + date to existing text within a cell and this is successful.

ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 & vbLf & Initials & InitDate & ": "

However I have not been able to preserve the font color in the existing text, where some words have been highlighted in red, as per the following example "Please refer to the Builders Almanac for further details."

Is there any way to preserve the font colors assigned to the existing text?

 

[Andrew Poulsom]

Welcome to MrExcel.

Sorry, you can't apply rich text formatting to the resut of a formula. You would have to convert the formula to a value and format the relevant characters.