code compile error

Can anyone tell me why this code is giving an error when in along with the rest of the code in the attached workbook but when its on its own works fine?

Sub Burt_100XX()
Dim x As Long
Dim y As Long
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

Because you named one of your Subs Day. You should never name a sub after an Excel Function.

Thats great thanks for the feedback. Working perfectly now.