Vba 宏以查找行中的今天日期

我是VBA新手，所以请放松。我试图在第4行中运行一个宏来查找今天的日期，但我在网上找到的所有内容都是特定于列的。我试着自己创造一个，但它就是不起作用。我有一些代码，但删除了它，因为它完全缺乏功能。任何帮助都将不胜感激

启动宏记录器。 选择第4行 按Ctrl-F打开“查找”对话框 输入今天的日期并点击OK 当日期高亮显示时，停止宏记录器。 现在编辑代码。声明一个变量并将其设置为今天的日期

Dim myDate As Date
myDate = Date

现在，在代码中使用变量myDate，而不是带有今天日期的字符串

Sub Macro1()
'
' Macro1 Macro
'
Dim myDate As Date
myDate = Date

'
Rows("4:4").Select
Selection.Find(What:=myDate, After:=ActiveCell, LookIn:=xlFormulas _
    , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate
End Sub

---

显示不工作的代码抱歉，我删除了它：谢谢你的反馈。请记住，宏记录器是您的朋友，可以帮助您解决许多VBA方案。非常感谢，工作正常，非常感谢您的帮助。分贝