Extract text based on font colour

I currently have a column with a few hundred rows. Each cell has text with three main standard colours (yellow, red and blue). Occasionally i have a cell with 'N/A' in automatic font.

I'm trying to extract the text based on the font colour to a new column.

A1

5.1 Debris in area
7.4 Gap too large
7.5 Not adequately sealed
Misc. -wear and tear.
Misc. - scratches

So the text above would be split into another three columns based on the three font colours. I have found the following macro from a different site to extract the red text and it works perfectly. However i'm not too sure how to repeat for Blue and Orange text.

Please Login or Register  to view this content.

Many thanks