I had a mistake in the code, it is working fine. I ended up doing i
like this:
For Each Cell In Range("D3:AJ24")

If Range("I29").Value = Range("I26") And Cell.Value "" An
Cells(Cell.Row, "AO") = "x" Then _
Cell.Value = Range("AO1")

If Range("H29").Value = Range("H26") And Cell.Value "" An
Cells(Cell.Row, "AN") = "x" Then _
Cell.Value = Range("AN1")

If Range("G29").Value = Range("G26") And Cell.Value "" An
Cells(Cell.Row, "AM") = "x" Then _
Cell.Value = Range("AM1")

If Range("E29").Value = Range("E26") And Cell.Value "" An
Cells(Cell.Row, "AK") = "x" Then _
Cell.Value = Range("AK1")

If Range("F29").Value = Range("F26") And Cell.Value "" An
Cells(Cell.Row, "AL") = "x" Then
Cell.Value = Range("AL1")

End If
Next
On Error GoTo 0

From what I have tested it seems to be working, thanks again for you
help!!
Ji

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