Finding a Date with the Find Command

Have you tried using Application.Match and Value2?

That worked for me and returned the column, 20, the date was in.

Res = Application.Match(cld.Offset(3,0).Value2, shs.Cells(homeRow).resize(,52),0)

MsgBox cld.Offset(3,0).Value2 & " is in column " & Res