How can i apply the validation on the cell with invalid data.

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

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