Erase the input

[Ralph M]

I have worksheet code that checks a date when the user enters data. It checks the date after user input, if the date is expired, I have a MsgBox. After the MsgBox, I would like to go back to the input cell and clear the data with code. Any help?? I just don't know how to write the code to go back to the cell and clear it. Thanks

 

[VoG]

Try like this

Private Sub Worksheet_Change(ByVal Target As Range)
'
'your code
'
Application.EnableEvents = False
Target.ClearContents
Application.EnableEvents = True
End Sub

 

[Ralph M]

Works perfect, thanks for the help.