Maybe...

On Error Resume Next
For Each Cell In AllCells
if lcase(cell.offset(0,-2).value) _
= lcase(worksheets("base").range("M1").value) then
if lcase(cell.offset(0,-1).value) _
= lcase(worksheets("base").range("M2").value) then
NoDupes.Add Cell.Value, CStr(Cell.Value)
end if
end if
Next Cell
On Error GoTo 0



sven_dau wrote:

Dave, how would it look like if I had another additional criteria to be
checked (say in M2) with column B?

Just repeating the first if function and replacing M1 with M2 and
changing column to -1 doesn't do the trick.

--
sven_dau
------------------------------------------------------------------------
sven_dau's Profile: http://www.excelforum.com/member.php...o&userid=35291
View this thread: http://www.excelforum.com/showthread...hreadid=561105

--

Dave Peterson