Looking up dates in a column with a formula

[MedicP3]

I'm very new to Excel and VBA. With that said, I'm trying to do an IF THEN statement where:

        Dim ExpDate = Date +30
        If Cells(i,6) < ExpDate Then

And the rest of the code will copy a different cell (without the date) on the active sheet onto another sheet.

I've been able to get this to do exactly what I want it to do when searching up a numerical value that resulted from a formula:

       If Cells(i,13)<0 Then

but it's not working for the dates.

Also, (and I don't know if this makes a difference) IF THEN with the dates is the second IF THEN in my FOR NEXT.

I don't know if VBA is comparing the formula with the ExpDate or if it's reading the acutal date and comparing it to ExpDate.

Can someone please help a VBA rookie find out where I'm going wrong?

Any help would be GREATLY appreciated!!!

[JBeaucaire]

It's hard to say for SURE without seeing the data, but I'd guess there's something inexact between the date strings in your worksheet. So, try explicitly converting the values being evaluated into a CDate.

Dim ExpDate As Date

        ExpDate = Date +30
        If CDate(Cells(i,6)) < ExpDate Then