jlgwhiz or mike H helped me out with this awhile ago. Well, for lack of a
better excuse I lost some data and had to start over. Now I cannot get this
to work and cannot figure out why. I am getting a variable not defined error.

Sub ConcatColor()
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastRow '<<assumes header row
If range("P" & i).Interior.ColorIndex = 3 Then
range("P" & i) = Cells(i, 7) & Cells(i, 8) & Cells(i, 9)
End If
Next
End Sub