Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [D5]) Is Nothing Then
[D5].Interior.ColorIndex = IIf([D5] = "", 16, 43)
End If
If Not Intersect(Target, [E5]) Is Nothing Then
[E5].Interior.ColorIndex = IIf([E5] = "", 16, 43)
End If
End Sub