Hi Cetin:

I tried your code in lostfocus but still getting invalid input when
I enter a year greater than 1900.

If year(this.value) < 1900
nodefault
=messagebox("You cannot enter a century before 1900!", 48, "CATS")
Endif

dateformat is yyyymmdd.