Harlan Grove wrote...
....
>Sub foo()
....
> For n = 2 To dv.Count
>
> For Each x In dv.Keys
>
> For Each y In dc.Keys
....

This looping logic doesn't work. If there are no matching combinations,
this will run a LONG, LONG, LONG time.