Hi

I have a macro which runs sql code. For the macro I am passing date value from Excel cell A1. The user need to enter the date manually.
Now I need to restrict the user in entering the value in the cell A1 in the format mm/dd/yyyy .
How include this condition in existing macro(VBA) code, so that when user enters date in someother format, a message box need to pop-up indicating to enter in the proper format?

Welcome for all the suggestions...

isdate() will return a true/false

so

if not isdate(range("A1")) then Msgbox("NOT A DATE VALUE")


Just learnt this tick write some code that will run vb on a cell change


so in the vb part of that worksheet (not a Module) took me an 1/2 to work this out didn't read the help right LOL

Private Sub Worksheet_Change(ByVal Target As Range)

Dim checkdate as Boolean

select case Target.address

case "$A$1" ' a1 was change
checkdate = isdate(Target.Value) if its not a date value it will be false
if not checkdate then
Msgbox("this is not a date value")
else
call sub_go_do_something(Target.Value)
End if

case else
end select

End sub

now this can be in a module

sub_go_do_something(thisvalue)

msgbox("You inputed " & format(thisvalue,"mm/dd/yy") & " Date")


End sub

Hey, thanks a lot.