Sub findmax()'chg date format to conform
x = Format(Application.Max(Columns("k:m")), "d-mmm")
Columns("k:m").Find(x, LookAt:=xlWhole, LookIn:=xlValues).Activate
End Sub


--
Don Guillett
SalesAid Software

"dbs" wrote in message
...
I have an Excel file in which three columns contain dates. I would like a
function to select which date is the most recent. Any help you could
provide
would be much appreciated. Thank you.