Error

Hi,
Can anyone help with the attached worksheet, I am using the below code to match the date in A1 with the date from A10:A however it is not working, I keep getting an error 16 - Expression too complex

Sub Burt_100XX()
Dim x As Date
Dim y As Date
y = Day(Range("A1"))
For x = 10 To Range("A" & Rows.Count).End(3).Row
        If Day(Cells(x, "A")) = y Then
            Cells(x, "B").Select
            Exit For
        End If
Next x
End Sub