Find input box value

[Aaron092]

Hi all

I'm trying to make part of a macro that will find user input.

User starts macro, is prompted to enter a date, and macro will find the date.
Problem is, the code I've used does not want to work for me.

I've tried Dim/Set, For Each/Next, and the below:

Please Login or Register  to view this content.

Does anyone know what I'm doing wrong, please?

Thank you

[nathansav]

tried cdate(date1 = InputBox("Enter date", "Enter Date"))

if not can you attach a sample.

[Aaron092]

Hi Nathansav

Thanks for your reply. I've tried that method too - knew I was missing one.
I've attached a copy of the spreadsheet to this. I'm trying to find dates within the highlighted row.
The rows and headers don't change, just the values

Thanks
Copy of 1408 (2).xlsm

[nathansav]

Range("Y:Y").Find(CDate(InputBox("EnterDate")), After:=Range("Y2"), LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

[Aaron092]

Nathansav, you absolute stallion! Works beautifully!
Thank you so much - reputation given

[nathansav]

No worries, it was your look after Activecell that was the issue.

I'd also trap errors in case the find string isnt found.