Hücrede tarih kontrolü

[haso_excel]

Merhaba arkadaşlar,

A kolonundaki verilerin bazıları tarih bazılarıda sayı olarak geliyor. B kolonuna Isnumber(a1) dedğimde tarihlerede true veriyor. Nasıl ayırt edeceğim. Mümkünse formül ile

 

[haso_excel]

Sub TARIH_KONT()
For I = 2 To WorksheetFunction.CountA(Range("A:A"))

If IsDate(I, 1) = False Then
Cells(I, 3).Value = "TARİH DEĞİL"

ElseIf (IsDate(I, 2)) = TREU Then
Cells(I, 3).Value = "TARİH "

End If
Next I
End Sub

Yukarıdaki kod ile çözmeye çalıştım ama kodlada başaramadım.