搜索功能无法找到公式结果

Question

我正在尝试执行搜索宏以在表格中查找特定日期。但是，表中的日期以周为单位，从上一个日期起加上7。因此，如果A1为1/1/2018，则A2将为A1+7，从而得到1/8/2018，依此类推。我在搜索功能中添加了LookIn:=xlValues，但是搜索仍然不返回任何结果。非常感谢您的帮助。

这是我正在使用的代码：

target_date = Cells(2, 20).Value

Set finding = Cells.Find(What:=target_date, After:=Cells(1, 1), LookIn:=xlValues, LookAt:= _
    xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False _
    , SearchFormat:=False)

If Not finding Is Nothing Then finding.Activate