I have an excel that has multiple comments and date stamps in them that I want to pull the latest date and take action. Below is an example cell and below that is the VBA Iv'e been using.
The only problem is for some reason the cells are not read as dates. I want to be able use SumProduct(--(MaxDate(K:K)<Today())).
Also if error I want it to skip leave blank

3/12/2013 CKole
Analysis Complete

3/2/2013 Pjokim
Analysis Started

2/15/2013 D.Huffman
Recieved new cart


Public Function MaxDate(rng As Range)
Dim Dates() As Date, i As Integer
ReDim Dates(rng.Count - 1)
i = 0
Dim c As Range
For Each c In rng
tmp = Split(c.Value, " ")
Dates(i) = CDate(tmp(0))
i = i + 1
Next

d = CDate("01/01/1900")

For j = 0 To UBound(Dates)
If d < Dates(j) Then
d = Dates(j)
End If
Next

MaxDate = Format(d, "DD/MM/YYYY")
End Function