find a calculated date in a range

column c format eg friday, 21 may 2101

Sub FindInC()
     Dim FindString As String, FindString1 As Date
    Dim Rng As Range
    FindString1 = CLng(Date)
    Debug.Print FindString1
    
    FindString = Format(FindString1, "dddd, d mmmm yyyy")
    Debug.Print FindString
    With Sheets("Sheet1").Range("C:C")
        Set Rng = .Find(What:=FindString, _
                        After:=.Cells(1, 1), _
                        LookIn:=xlValues, _
                        LookAt:=xlWhole, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlNext, _
                        MatchCase:=False)
        If Not Rng Is Nothing Then
            Application.Goto Rng, True
        Else
            MsgBox "Nothing found"
        End If
    End With

End Sub