Sorry to bother you again; just one more question. Was there anything in
this code that will only work for small data sets? I've gotten it to work
for a small test sheet absolutely perfectly, but when I run the exact same
code on a monster sheet (250k rows in sheet 1, 2k rows in sheet 2) I get a
type mismatch error on the third line of this:

For Each ID In ws1.Range("B2:B" & lr2)
For Each c In ws2.Range("A2:A" & lr1)
If ID = c Then

What should I change to get this to run on a big sheet? Thanks!