I ahve some code (A couple Subs) that I use to validate
that the data entered into a specific column of a specific
sheet is numeric, as listed below:::
Sub Auto_Open()
Sheets("Form").OnEntry = "numbers"
End Sub

Sub numbers()
If ActiveCell.Column = 6 And Not IsNumeric
(ActiveCell.Value) Then
MsgBox "Value Must Be A Number."
ActiveCell.Value = "" ' Clears contents of active
cell.
End If
End Sub


What I would like to be able to do is to change the
validation process to make it validdate that the data
entered is a date in mm/dd/yyyy format. Any suggestions?