Verify Cell Value is a Date

[tudor30]

I need to look down a column of data and verify the entry is a date.

Thanks for assistance,
John

 

[PHV]

Take a look at the IsDate function.

Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[ETID]

'change the value of c in line 4 to match the col. you need

Sub check_dates()
Dim r As Integer
Dim c As Integer
r = 1: c = 1 'change c to correspond to your column
Do Until Cells(r, c) = ""
If IsDate(Cells(r, c)) = False Then
MsgBox ("cell " + Cells(r, c).Address + " is not of a date format")
Else
End If
r = r + 1
Loop
End Sub

 

[tudor30]

Thanks ETID. That worked very well!