Loop through every other column

[raeannb]

Hi! I have a spreadsheet with alternating columns of ID#s and dates, and a heading column with a date for comparison. What I'd like to do is loop through these columns and have any cell with a date that is 1 month or more older than the comparison date turn red. The dates start in the third column, and the comparison date is in cell A5. The last column with a date in it is column S (or the 19th column). The total number of rows is x, and the dates start in the 5th row. Here's what I've tried:

For j = 1 To 17

j = j * 2 + 1

For i = 1 To x

If IsEmpty(Cells(i + 4, j)) = False Then
If Range("A5") - Cells(i + 4, j) > 31 Then
Cells(i + 4, j).Interior.ColorIndex = 3
End If
End If

Next i
Next j

I hoped that first equation (j*2+1) would catch all the odd columns between 3 and 19, but so far it's only checking columns 3 and 9 and ignoring all the other odds. Why is that? Is there a better way to do this?

Thank you!!

 

[RoryA]

For j = 3 To 19 Step 2

would be simpler.

 

[raeannb]

It worked! Ahhh you're a genius. Who knew success could be so simple? Thank you!!