Thank you.
Perfect.
I will add that info to my growing
VB vocabulary of knowledge.
"merjet" wrote in message
oups.com...
When a duplicate is found Err.Number < 0 and it stays that way.
Between the two "End If" stmts, insert "Err.Clear". That will reset
Err.Number = 0 and allow more additions.
Hth,
Merjet