If Application.isNumber(Range("A1")) then
Msgbox "The value entered is not valid - " & Range("A1")
End if

"Shinya Koizumi" wrote:

I have a cell with number and want to apply the validation on this cell with
date type
How can i do this and bing up the error message saying "The value you
entered is not valid" in VBA?


Shin