Bob I got an unexpected result. Your code worked it dropped in "text" i
the two cells that it should have but after that it stopped followin
it's original criteria.

The part where it states the need 0 , it is ignoring because it keep
assigning Eng even after the need = 0

It's probably because I put it in the wrong place, did I?

With Sheet236
For x = 11 To 298
counter = 0
did = False
For n = 1 To timeStart
If .Cells(x, n).Value = "ENG" Then
did = True
End If
Next n
If .Cells(x, skilly).Value = "x" And did = False Then
For y = timeStart To timeStart + 7
If .Cells(x, y).Value = "." _
And counter < 6 _
And need 0 Then
.Cells(x, y).Value = "ENG"
counter = counter + 1
need = need - 1
Cells(x, y).Resize(1, 6) = "ENG"
Cells(x, y + 6).Resize(1, 2) = "Test"
End If
Next y
End If
Next x
End With

Thank

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