Date Validation

[HarryT]

I have a column of dates, I want to validate that the date given is valid as well as validate that someone did not enter alpha characters... Sometimes someone will enter N/A in the field for some reason.

I am trying to validate a file which already has the dates entered in the columns. I was looking to validate each cell through VB, but can't seem to figure out the syntax for the validation.

Any help is much appreciated.

Thanks

 

[VoG]

In Data > Data Validation you can specify Date.

 

[HarryT]

I am trying to validate a file which already has the dates in entered. I was looking to validate each cell through VB, but can't seem to figure out the syntax for the validation.

 

[VoG]

Try this - it is for column A and will color non-dates red. It isn't perfect.

Sub ValiDate()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    With Range("A" & i)
        If Not IsDate(.Value) Then .Interior.ColorIndex = 3
    End With
Next i
End Sub