Связанный список с автоподстановкой

[akovalev]

Господа, всем доброго времени суток!
Можете помочь с задачкой: необходимо создать связный список с автоподстановкой. Пользователь вводит в ячейке-A1 условие (список 1). При заданном условии в ячейке-B2 вводит значение из списка 2, базирующееся на списке 1.Вдобавок к этому -все должно работать с автоподстановкой.
Тут обсуждался код :http://www.programmersforum.ru/showthread.php?t=97748
Код подошел идеально, но как в данный код вставить двусвязный список с работающей подстановкой, не знаю Заранее спасибо за помощь!

Private Sub Combo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then Me.Combo.TopLeftCell = Me.Combo.Value: HideCombo: ActiveCell.Offset(1).Activate
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    HideCombo
    If Target.Cells.Count > 1 Then Exit Sub
    If Intersect(Target, Range("b2:b350")) Is Nothing Then Exit Sub
    showCombo
End Sub

Sub showCombo()
    Me.Combo.Value = ""
    Me.Combo.Top = ActiveCell.Top: Me.Combo.Left = ActiveCell.Left
    Me.Combo.Width = ActiveCell.Width + 1: Me.Combo.Height = ActiveCell.Height + 1
    Me.Combo.Activate
End Sub

Sub HideCombo()
    Me.Combo.Top = 0: Me.Combo.Left = 0: Me.Combo.Width = 0: Me.Combo.Height = 0
End Sub