Exit ? End? To end a loop

[Guanjin Peter]

As you can see the code below, it detects cell B2 if there's a valid date or not. then pops up the msgbox
The problem here is after adding ComboBox1 = ""
the code detects the changes in ComboBox1_Change sub and pops up the msgbox again. I tried to use exit sub and end if, but doesn't stop the msgbox popping up twice. Any way to go around it?

Private Sub ComboBox1_Change()
    On Error Resume Next
    If IsDate(Range("B2")) = False Then
    MsgBox "Please Enter Delivery Date", vbExclamation, "Invalid Date" 'no update until date,cell(b1) is filled
    ComboBox1.Value = ""
    Else
'Nothing
End Sub

 

[Tom Urtis]

What error are you expecting to get gave you a reason to need the error bypass line; nothing there will cause a run time error.

Are these controls on a userform or embedded on a worksheet.

No matter actually, if it were me, since the problem stems from a potential non-date being entered in cell B2, then just isolate that action before the userform is called, either with data validation or VBA, and if a valid date is not in B2, deny the userform from being called or keep the combobox locked until a valid date was entered first into B2. You can check for that after loading the userform on Initilization and prompt for a valid date entry before allowing access to the combobox. Lots of options at your disposal.

 

[Guanjin Peter]

yup, i got it! thanks for your suggestion!

 

[DonkeyOte]

just as an FYI - NOT as a "you should do this" ...

to leave a For Loop etc... Exit For
to leave a routine in full... Exit Sub