A.Do Until List2.ListCount
B.Do While List2.ListCount
C.Do Until List1.ListCount
D.Do While List1.ListCount