Выполнение действий при смене значений ComboBox

[iGremlin]

Хочу сделать чтоб при смене значения ComboBox менялось значение в ячейке. Пробую так, но не работает.

Private Sub Month_Change()
Today = Month(Date)
Worksheets("План").Month.ListIndex = Today - 1
Select Case Today
Case "1"
Worksheets("План").Range("B2").Valu e = "Январь"
Case "2"
Worksheets("План").Range("B2").Valu e = "Февраль"
Case "3"
Worksheets("План").Range("B2").Valu e = "Март"
Case "4"
Worksheets("План").Range("B2").Valu e = "Апрель"
Case "5"
Worksheets("План").Range("B2").Valu e = "Май"
Case "6"
Worksheets("План").Range("B2").Valu e = "Июнь"
Case "7"
Worksheets("План").Range("B2").Valu e = "Июль"
Case "8"
Worksheets("План").Range("B2").Valu e = "Август"
Case "9"
Worksheets("План").Range("B2").Valu e = "Сентябрь"
Case "10"
Worksheets("План").Range("B2").Valu e = "Октябрь"
Case "11"
Worksheets("План").Range("B2").Valu e = "Ноябрь"
Case "12"
Worksheets("План").Range("B2").Valu e = "Декабрь"
End Select
End Sub

[IgorGO]

а так не покатит?:

Private Sub Month_Change()
  Worksheets("План").Range("B2").Value = .Value
End Sub

[iGremlin]

А .Value это что?
В таком виде не работает

[IgorGO]

извините, так:
Private Sub Month_Change()
Worksheets("План").Range("B2").Valu e = Month.Value
End Sub

и вообще, открываете свойства Вашего Month, в поле LinkedCell пишете B2 - и все начинает работать без макросов.

[iGremlin]

Хм...если указывать LinkedCell он начинает брать значение из B2 и подставлять его в список ComboBox.
Вариант Sub сработал. Спс. ТОлько явно пришлось указывать на ComboBox

Хм. Без LinkedCell Sub тоже отказывается работать =)

[IgorGO]

не попутали случайно с FillListRange (откуда взять данные в комбобокс)

[IgorGO]

см.вложение

[iGremlin]

С этим разобрался...
А как быть если нужна более сложная конструкция с тем же If.
Пока с ним отказывается работать.
Можно сделать с обработкой условия при нажатии на кнопке, но не хотелось бы лишних элементов управления.

[IgorGO]

реквизиты в профиле или пишите сюда igorgoсобакаukr.net. обсудим, сделаю...

[iGremlin]

Уже сам разобрался, спс.