为什么Range.Find（Date）停止工作？

Question

我有以下VBA代码行：

Set Rng = wb.Sheets("Sheet1").Range("A:A")
Set c = Rng.Find(Format(Date, "dddd, mmmm dd, yyyy"), LookIn:=xlValues)

他们一直努力。我不知道为什么它昨天突然停止工作。

我检查了-寻找的单元格值仍然具有相同的日期格式。

我有一些代码可以将过滤器设置为要搜索日期的当前月份。

wb.Worksheets("Sheet1").ListObjects("Table1").Range.AutoFilter Field:=1, Criteria1:= _
        Month(Date) + 20, Operator:=xlFilterDynamic

我想知道是否有以下任何一种可能的原因，并且它们是解决该问题的方法。

1）我使用Windows 7，但现在使用Windows 10。

2）我使用的是Excel 2013，但现在使用的是Excel 2016。

我之前在Windows 10和Excel 2016上测试了这些代码，直到2019年4月1日才有效。

谢谢！