 <p>Below is my solution for achieving this.</p> <p>I rewrote everything to be contained in just the one <code>For</code> loop and set it to update both comboboxes.</p> <pre><code>Private Sub cbo_park_Change() Dim lLoop As Long '- clear the two comboboxes we are about to update Me.cbo_prefRoom1.Clear Me.cbo_prefRoom3.Clear '- loop through the worksheet and test each row For lLoop = 1 To Sheets("lookupRoom").Range("A" &amp; Sheets("lookupRoom").Rows.Count).End(xlUp).Row '- if the row's column C matches the combobox then add the corresponding values to other combos If Sheets("lookupRoo"m).Range("C" &amp; lLoop).Value = Me.cbo_park.Value Then Me.cbo_prefRoom1.AddItem Sheets("lookupRoom").Range("B" &amp; lLoop).Value Me.cbo_prefRoom2.AddItem Sheets("lookupRoom").Range("B" &amp; lLoop).Value End If Next lLoop End Sub </code></pre>