Error

[Burt_100]

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

[GC Excel]

Hi,
Here's a faster method instead of looping through all cells :

Sub Burt_100XX()
    Dim rg As Range
    
    Set rg = Range("A10:A" & Cells(Rows.Count, 1).End(xlUp).Row).Find(Range("A1"), , xlValues, xlWhole)
    If Not rg Is Nothing Then rg.Offset(0, 1).Select

End Sub

[GC Excel]

In your macro, replace with this to make it work :

Dim x As Long

[Pepe Le Mokko]

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution.

Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.

To change a Title go to your first post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)