Christ, me again, same topic.
Have a look at this:
If Cells(ActiveCell.Row, "C").Value = tnam And Left(Cells(ActiveCell.Row, "A").Value, 6) <> tno And InStr(1, Cells(ActiveCell.Row, "K").Value, pup) > 0 Then
The left bit is giving me no end of grief.
So the fabled "tno" variable is "702228"...