заменил элементы формы на Activex получилось так: [vba]Код
Private Sub ComboBox1_Change()
If ComboBox1 <> ComboBox2 And ComboBox1 <> ComboBox3 Then ComboBox4 = "---"
End Sub
Private Sub ComboBox2_Change()
If ComboBox2 <> ComboBox1 And ComboBox2 <> ComboBox3 Then ComboBox4 = "---"
End Sub
Private Sub ComboBox3_Change()
If ComboBox3 <> ComboBox1 And ComboBox3 <> ComboBox2 Then ComboBox4 = "---"
End Sub
Private Sub ComboBox4_Change()
If ComboBox4 <> "---" Then
ComboBox1 = ComboBox4
ComboBox2 = ComboBox1
ComboBox3 = ComboBox1
ComboBox4 = ComboBox1
End If
End Sub
[/vba]