Cant get the auto mail from excel via outlook to work

Hello

well you see i have this exact code in an other sheet and that one works fine but with this code i get and error message: Next without For
why do i get that message? the fault comes up in second last row of the code

Please Login or Register  to view this content.

You have 5 IF..THENs but only 1 END IF. You need 4 more END IFs.

If Sheets("Garantilista").Cells(i, 7).Value = DateSerial(Year(Date), Month(Date), Day(Date) + 21) Then
If Sheets("Garantilista").Cells(i, 8).Value = DateSerial(Year(Date), Month(Date), Day(Date) + 21) Then
If Sheets("Garantilista").Cells(i, 9).Value = DateSerial(Year(Date), Month(Date), Day(Date) + 21) Then
If Sheets("Garantilista").Cells(i, 10).Value = DateSerial(Year(Date), Month(Date), Day(Date) + 21) Then
If Sheets("Garantilista").Cells(i, 11).Value = DateSerial(Year(Date), Month(Date), Day(Date) + 21) Then

Thanks for you help Ranman i solved the problem with the error message but a new problem came with the solution now the e-mail is not going away as it should

Did you set the OUTLOOK app in VBA REFRENCES?

Yeah if i'm not wrong this code should start that

Please Login or Register  to view this content.

Okay this is what i have found out in the code this is what mess up every thing but i dont know how to fix it, i need the code to search all 5 columns if the date is overdue

Please Login or Register  to view this content.

and of course the 5 End if is in
i dont get an error with the code but he's not sending anything either

everything runs fine with just one column search