выбор в раскрывающемся списке в форме по значению в столбце на листе. VBA

[cheshiki1]

С VBA на вы. поэтому пытаюсь прицепить и подправить чужие наработки.
В форме есть раскрывающийся список с выбором двух значений "Наимен.." и "обозн..". как сделать чтобы при открытии формы выбор в раскрывающемся списке происходил автоматически согласно столбца из которого запущена форма.
Из столбца С значит Обозначение, из столбца D - наименование.

[kuklp]

Код Выделить Развернуть

Private Sub UserForm_Initialize()
    Call MyCreateDList ' формируем список из названий списков на листе "Списки"
'    If dList.Count = 0 Then Exit Sub ' нет списков
    Call AssigningValuesToVariables ' присваиваем значения переменным
    Call MyFillDataComboBoxList ' заполняем данными комбобокс с названиями списков и устанавливаем в нем текущий єлемент.
cbList.ListIndex = 4 - ActiveCell.Column
End Sub

[cheshiki1]

Большое человеческое спасибо.