Put this in the ThisWorkbook code module

[VBA]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
With Application.Intersect(Target, Sh.Columns(1))
.SpecialCells(xlCellTypeBlanks).EntireRow.Interior.ColorIndex = xlNone
.SpecialCells(xlCellTypeConstants).EntireRow.Interior.ColorIndex = 3
End With
On Error GoTo 0
End Sub[/VBA]