Need to find cell in column 3, given name of cells in col 1 and 2.

[Sunita Chaudhar]

Set rng2 = Sheets("data").Columns("A:A")
Set rng3 = Sheets("data").Columns("B:B")

Set rngFound = rng2.Find(What:=Compij, lookAt:=xlWhole, MatchByte:=False)
If rngFound Is Nothing Then

MsgBox "One compound in this list was not found" & " " & Compij
Exit Sub
End If

Set rngFound2 = rng3.Find(What:=Compij2, After:=cellk, lookAt:=xlWhole, Mathbyte:=False)

I get an error at this last command.

[Stewart Ross]

If what you have posted is accurate - and only you will know this for sure - there is a spelling error in the very last term on your last line:

Mathbyte:=False

should be

Matchbyte:=False

-Stewart