If Me.txtindexcontact = wscontact.Cells(lastrow + 1, 12).Value then you would only get the last values from the wscontact combo box.