Has anyone came up with a solution on how to catch a blank entry or the cancel button being pressed. I have found a few posts on it but not resolution. Here's what I have. DateUp is of Date type. It errors out saying "" cannot be converted to date if I press cancel or leave it blank. Any ideas?

Code:
DateUp = InputBox("Please enter the date", "Date Needed")
If DateUp = "" Then
Exit Sub
End If