I'm trying to finish this up but I'm having a problem with the oute
loops.

For K = 305 To 316 '
For t = 319 To 330 '
For Each cell In Range("G11:n298") Step 8 '
c = Array(7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18)
For i = 0 To 11
If Cells(t, c(i)).Value - 1 = Cells(K, c(i)) And cell.Value = 1 An
_
Cells(cell.Row, c(i) + 97) = "x" Then
cell.Value = Cells(9, c(i) + 97)
End If
Next i
Next cell
Next K '
Next t '

What I'm trying to do is after the array completes I want to incremen
K by 1 and t by 1 and then step over to the next 8 columns("O11:V298"
and run the code again.

I have comments on the end of the lines that are not working.
Thank

--
Message posted from http://www.ExcelForum.com