Why does this code remove Duplicate Values, by showing only 1, but it does NOT show Unique values for some reason ?
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
|