Thread: Advance two For Each at same time

I have these two named ranges, each 1 column by 32 rows.

Each have data I need to use that is comparable row to row.

I need to advance each For Each in each Range simultaneously.

How can I make this statement work?

For Each ofCell In Range("Order_Flavors")
  row = 2
  For Each fCell In Range("Flavors") And For Each Cell In Range("Expiration_Dates")
    If ofCell = fCell Then
      Do Until Cell.Value > 5
        Cells(row, column).Value = Cells(row, column).Value + 1
        j = j + 1
        k = k + 1 
      Loop
      Cells(row, column).Value = Cells(row, column).Value - k
      k = 0
   End If
  Next fCell And Next Cell
 row = row + 1
Next ofCell

Any suggestons?
Thanks.

Appreciate Andy,

I learned something new.

I didn't know I could Index a Range like that.

Thanks again.