Private Sub ComboBox1_Change()
Static x$
If ComboBox2 <> "" Then x = ComboBox2
ComboBox2 = IIf(ComboBox1 = "", x, "")
End Sub
Private Sub ComboBox2_Change()
Static x$
If ComboBox1 <> "" Then x = ComboBox1
ComboBox1 = IIf(ComboBox2 = "", x, "")
End Sub