Delete Key Error Message
*please excuse this if it is a duplicate post. I received an error message on the first attempt
The code below works fine to check a target range against a Start_Date cell except for one thing. If a bad date is entered, I get the error message, but I also get the error message when I enter the delete key to clear the cell contents. Is there any to prevent the error message from displaying every time I enter delete to clear the cell? I've been trying Validation.IgnoreBlank but cannot seem to find the right combinatio
If Intersect(Target, rng2) Is Nothing The
Application.EnableEvents = True: Exit Su
Else
Start_Date = CDate(Cells(3, 9)
If Intersect(Target, rng2) < Start_Date The
MsgBox ("Incorrect Date - Outside of WBS Date Range"
End I
End If
|