Makro: udfyld celle, hvis anden ikke er udfyldt

For eksempel:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A,D:D")) Is Nothing Then
r = Target.Row
If Cells(r, 1) = "" And Cells(r, 4) <> "" Then
Cells(r, 12) = "MANGLER NR."
Cells(r, 12).Interior.ColorIndex = 3
Else
Cells(r, 12) = ""
Cells(r, 12).ClearFormats
End If
End If
End Sub

Tusind tak! Det virker præcis, som det skal :)