Private Sub ComboBox1_Change()
Dim pos As Byte
If Me.ComboBox1 <> "" And IsError(Application.Match(Me.ComboBox1, a, 0)) Then
Me.ComboBox1.List = Filter(a, Me.ComboBox1.Text, True, vbTextCompare)
Me.ComboBox1.DropDown
End If
pos = InStr(Me.ComboBox1.Value, " - ")
If pos > 0 Then
ActiveCell.Offset(0, 1) = Mid(Me.ComboBox1.Value, pos + 2)
ActiveCell = Mid(Me.ComboBox1.Value, 1, pos - 2)
End If
End Sub