Find & activate cell containing current date on 12 month calendar

[DFragnDragn]

I have a 12 month calendar. All 12 months are within Range C5:Y39.
FindString = Format(dValue, "d") is only finding the first instance (current Day) which is Jan.
Changing the format value to "m" gets me into Feb., but with the wrong day. I've tried every Format value I can think of and they all fail completely except for d & m.
I can't get it to find the proper month with appropriate day.

Any direction would be much appreciated.

Sub FindDate()
    Dim FindString As String
    Dim Rng As Range
    Dim dValue As String
    dValue = Date
    FindString = Format(dValue, "d")
    If Trim(FindString) <> "" Then
        With ActiveSheet.Range("C5:Y39")
            Set Rng = .Find(What:=FindString, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
            MsgBox Rng.Value
            Application.Goto Rng
            Else
                MsgBox "Nothing found"
            End If
        End With
    End If
End Sub

 

[DFragnDragn]

SOLVED with new direction

Named my 12 month calendar display Range and went a different direction with this code:

Sub FindDate()
Dim found As Boolean: found = False
For Each cl In Range("CalFindRngDate")
    If cl.Value = Date Then
        found = True
        Exit For
    End If
Next cl
If found Then
Application.Goto cl
     MsgBox cl.Value
Else
     MsgBox "Not Found"
End If
End Sub