one way

Sub checkdate()
For Each c In Selection
On Error Resume Next
If Not IsDate(c + 1) Then MsgBox c.Address '"not a date"
Next
End Sub


--
Don Guillett
SalesAid Software

"TWilson" wrote in message
...
I have a worksheet that has to have dates manually inputted where I then
have
my own macro do some other stuff. Is there a way to check the A column
for
date data and have a box popup telling them if they havent while also
stopping the macro?

Thanks