It's not very elegant, but you could try something along the lines of
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
With Sheet1
For Each rCell In .Range("F2:F500")
If rCell.Value = "com" Then
rCell.Interior.Color = RGB(69, 139, 0)
ElseIf rCell.Value = "fin" Then
rCell.Interior.Color = RGB(75, 0, 130)
ElseIf rCell.Value = "sup" Then
rCell.Interior.Color = RGB(255, 255, 0)
ElseIf rCell.Value = "nfa" Then
rCell.Interior.Color = RGB(0, 0, 0)
ElseIf rCell.Value = "cust" Then
rCell.Interior.Color = RGB(70, 130, 180)
ElseIf rCell.Value = "3rd" Then
rCell.Interior.Color = RGB(255, 165, 0)
ElseIf rCell.Value = "og" Then
rCell.Interior.Color = RGB(240, 128, 128)
Else
rCell.Interior.Color = RGB(255, 255, 255)
End If
Next rCell
End With
End Sub