How about a sheet change event?

[VBA]Option Explicit
Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range
For Each cel In Range("A1:A59").Cells
If cel.Offset(0, 1).Value = "yes" And cel.Offset(0, 2).Value = "yes" And cel.Offset(0, 3).Value = "yes" Then
cel.Interior.ColorIndex = 4
ElseIf cel.Offset(0, 1).Value = "no" And cel.Offset(0, 2).Value = "no" And cel.Offset(0, 3).Value = "no" Then
cel.Interior.ColorIndex = 3
ElseIf cel.Offset(0, 1).Value = "no" Or cel.Offset(0, 2).Value = "no" Or cel.Offset(0, 3).Value = "no" Then
cel.Interior.ColorIndex = 6
Else 'default conditions
cel.Interior.ColorIndex = 0
End If
' End If
Next
End Sub
[/VBA]