foo = -1
For K = 305 To 316
t = K + 14
foo = foo + 8
For Each cell In Range(.Cells(11, foo), .Cells(298, foo + 7)) Step 8

blahblahblah

Next K

- piku

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