Geen messagebox bij ingevulde cel

[JW at Work]

Hallo mensen,

De macro hieronder controleert of cel B1 is ingevuld op het moment dat cel A1 ingevuld is.
Als A1 niet wordt ingevuld verschijnt er geen melding.. Dat is OK.
Maar op het moment dat B1 is ingevuld (doordat je met een messagebox wordt gewaarschuwd) blijft de messagebox een melding geven bij elke enter of muisklik.

Nou is mijn vraag wat ik moet aanpassen zodat de melding niet meer komt wanneer cel B1 is ingevuld?

Greetz. JW

'If Intersect(Target, Range("A1")) Is Nothing Then End
On Error GoTo end1
Application.EnableEvents = False
Dim c As Range
For Each c In Range("A1")
If c = "" Then
Range("B1") = ""
Exit For
Else
MsgBox ("Veld B1 is niet ingevuld!")
End If
Next c
end1:
Application.EnableEvents = True