Code not formatting strings

[Ochimus]

Attached has text in Col A in Bold, text in Col B in italics, and text in Col C as standard.

For each row, if there is text in Col A and Col D is blank, concatenate Cols A - C into Col D. That works perfectly.

Then need to find in Col D the string from Col A and make it Bold, and the string from Col B and make that Italic.

But Code throws a RunTime error 424 at that point.

Example of desired result shown in F2

Please Login or Register  to view this content.

All solutions, suggestions or alternatives welcome as ever.

Ochimus

[Norie]

Ochimus

InStr returns the position of the substring you are looking for, you can use that along with Characters to do the formatting.

Please Login or Register  to view this content.

[Arkadi]

Removed... Norie posted same solution already.

However, if you later delete the values in Column D, the font formatting will stay, so you may want to add something to remove bold/italic from the column or cells prior to setting the new text and its format.

[Ochimus]

Many thanks to both for prompt response and solution.

Can now mark this as "solved"

Ochimus