Finding a Date with the Find Command

Here is the offending line:

Set rngD = shS.Range(shS.Cells(HomeRow, 1), shS.Cells(HomeRow, 52)).Find(clD.Offset(3, 0).Value, _
                LookIn:=xlValues, lookat:=xlWhole)

The value I am looking for is 6/14/2017, the value in the cell is 6/14/2017 - yes both are dates and not strings. Home row is the row that contains the dates. It also contains other garbage like strings for header "W/E x/y" - could this garbage interfere with the search. All the web searches I've done says I'm doing it right. I have US settings on my computer and both this spreadsheet and the workbooks that it reads are on the same settings.

A version of this program that looks for the strings matching the W/E dates works perfectly. I'm trying to adapt it to find a date rather than a string.

The zip file contains the program and two sample files: on the program file, In Cell B1 on the control panel enter the path name of the directory where the data files are. Put the data files in this directory. The output should provide two lines of data on the backlog sheet: one for Sample Data Sheet A and another for Sample Data Sheet B.