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

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
(E-Mail Removed)
"TWilson" <(E-Mail Removed)> wrote in message
news:25B4D198-A812-46FB-AC01-(E-Mail Removed)...
>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