Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("P3")) Is Nothing Then
If Target.Value = "Paid" Then Range("G3").Interior.ColorIndex = 4
If Target.Value <> "Paid" Then Range("G3").Interior.ColorIndex = xlNone
End If
End Sub