Hi,

Right click your sheet tab, view code and paste this in and try entering
your values

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If Not Intersect(Target, Range("O:O")) Is Nothing Then
Select Case UCase(Target.Value)
Case Is = "COMPLETED"
icolor = 4
Case Is = "AWAITING DOCS"
icolor = 45
Case Is = "CREDIT ISSUE"
icolor = 3
Case Is = "DECLINED"
icolor = 15
Case Else
icolor = xlNone
End Select
Range("A" & Target.Row & ":" & "Q" & Target.Row).Interior.ColorIndex = icolor
End If
End Sub

Mike

"Stringhaussen" wrote:

Hi,

I'm building a database and need to apply 4 levels of conditional formatting
so each row will change color. The conditions and colors are...

Completed = Green
Awaiting docs = Orange
Credit issue = Red
Declined = Grey

It's range is columns A:Q and the column this data is stored in is "O".

I've tried several variations, but can't get it to work. Any suggestions
would be greatly appreciated.

regards