Find the first cell in a Column with a specific Date

[DougRobertson]

Hello,

I have created numerous Macros where I use the VBA Find function to find the Row Number where a certain Text is first located.

However I now need to do the same thing, but instead of finding a certain Text, I need to Find a Date . . . . so to speak!

Here's what I have so far.

[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Dim iTHISMonthYear As Date
[/FONT]
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]iRowNumber = Range("A4:A100").Find(what:=iTHISMonthYear, LookIn:=xlValues, After:=Range("A1")).Row

Thanks in advance for any and all help on this!
[/FONT]

 

[sheetspread]

Use the DATEVALUE function