No formula

Sub checklist()
For Each c In Range("b2:b10")
On Error Resume Next
x = Range("a2:a10").Find(c).Row
If c < "" And x 1 Then Cells(x, "c") = "Tested"
Next c
End Sub



--
Don Guillett
SalesAid Software

"Richard" <nomailplease.com wrote in message
...
Column A contains names of students who had taken a test.
A B C
Tested All Students

Richard Richard tested
Jason Sam not tested
Greg Tom ?
Susan Greg
John Michelle
Michelle John
Jason
Susan

column B will have the names of students who had taken a test and who had
not, beginning with cell C1 I want to search column A for Richard. If
Richard's name is found on column A, then he had taken a test, then C1
will have a value of "Tested". Otherwise, if Richard is not found in
column A, then C1 will have a valued of "not tested". I used this formula
and it did not work. =IF(A1:A6=B1,"Tested", "Not tested")

Can anyone help?