Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(3, 3) < 0 Then
Rows("3:3").Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Else
Rows("3:3").Select
Selection.Interior.ColorIndex = xlNone
End If
End Sub