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
>
>
>
>