Jump to today's date

Hello everyone
I have dates in column A
I tried to devise code that enables me to jump to the cell that holds today's date using this code

Sub FindDate()
    Dim C As Range
    Dim Str As String
    Str = Format(Date, "dddd yyyy/mm/dd")
    Set C = ActiveSheet.Cells.Find(What:=Str, LookIn:=xlValues, SearchFormat:=True)
    If Not C Is Nothing Then C.Select
End Sub

But it doesn't work for a reason which I ignore

Thanks I could figure it out

Sub FindDate()
    Dim C As Range, StrDate As Date
    StrDate = CLng(Date)
    
    Set C = ActiveSheet.Cells.Find(What:=StrDate, LookIn:=xlFormulas)
    If Not C Is Nothing Then C.Select
End Sub

Thanks a lot Mr. Lewis for sharing this issue
In fact I tried both suggested formats but it doesn't work
Column A is formatted in Custom format "dddd yyyy/mm/dd "

It works with your format in your code "m/d/yyyy" just after changing this line

Set C = ActiveSheet.Cells.Find(What:=Str, LookIn:=xlFormulas)

As Lewis has said the format of the cell(s) is irrelevant. If the dates are true date numbers (you can test with =ISNUMBER(A1) ) then you need to find the date number. If the 'dates' are in fact text strings then clearly you need to convert today's date to a string that's in the same format.

Thank you very much for this useful information
Thanks a lot for all great help
Regards