I have imported a csv file that splits the names into 3 different colomns. I
am trying to merge the names back together but only when it meets certain
criteria. Cannot figure out how to make the following formula work only on
cells that have a font ColorIndex of 3. Have searched but can't find quite
the right answer. Thanks in advance for your help.

Sub ConcatColor()
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastrow '<<assumes header row
Range("P" & i) = Cells(i, 7) & " " & Cells(i, 8) & " " & Cells(i, 9)
Next
End Sub