Code:
For r = 2 To 128
With CB_List
For n = 0 To .ListCount
If .List(n, 0) = Sheets("Testsheet").Cells(r, "U") Then
Exit For
End
For r = 2 To 128
With CB_List
For n = 0 To .ListCount
If .List(n, 0) = Sheets("Testsheet").Cells(r, "U") Then
Exit For
End
Leave a comment: