Run Time 13 Mismatch Error

[jscalem]

I am getting an error on this part ***If Month(w1.Range("B" & i)) = Month(Date) And w1.Range("C" & i) = 65 Then*** of the following code. It was running fine in excel 2007 and now I can't figure out what's wrong.

The whole section of code is as follows............

[AB33]

Please wrap your code with code tags.
W1 is not defined as object (Worksheet) while you are looping through lr.

[jscalem]

I did sorry I didn't do that in the first place.

So to correct this would I just replace the w1 with the worksheet name??

[AB33]

And more

If Month(w1.Range("B" & i)) = Month(Date) And w1.Range("C" & i) = 65 Then

Which sheet name Month(Date) comes from? You need to reference the sheet name.
Last, you have valid dates in column B.

[Norie]

Do you have any errors, or invalid dates in columns B or C?

AB33

Month is a VBA function, it returns the month of the date passed to it.

[jscalem]

Well the date is in the form of 20140805 the formula basically is copying over the lines in which the person turned 65 in the current month or 65 in the prior month. Column B is the date of birth and column C is the numerical age. I did not write that portion of code so I am a little unsure of how to fix the issue. I will check for errors in B or C though.

[AB33]

Norie,
You are right! I was meant to say that the month should match to dates in column B.