Возможно ли использовать CheckBox + ComboBox вместе?

[NoirSpirit]

Подскажите пожалуйста пути решения такой вот задачи:
Допустим у меня есть журнал в котором я веду записи о прогульщиках и болеющих.
У меня есть форма в которой CheckBox1 и CheckBox2 с имнеами (.Caption) "Петров" и "Сидиров" соответственно.
Когда кто-то из них отсутствует, то я активирую CheckBox1 или CheckBox2 и напротив них, соответственно, становятся активными ComboBox1 или ComboBox2 в которых можно выбрать причину отсутствия (Болезнь или Прогул).
Есть Таблица Excel. В ячейке А1 написана причина "Болезнь", а в ячейке А2 "Прогул". Нужно чтобы при выборе из ComboBox причин отсутствия в ячейки B1 и B2 вписывались фамилии Петров или Сидиров.
Все что у меня получилось:

Private Sub UserForm_Initialize()
ComboBox1.AddItem "Болезнь"
ComboBox1.AddItem "Прогул"

ComboBox2.AddItem "Болезнь"
ComboBox2.AddItem "Прогул"
End Sub

Private Sub ComboBox1_Change()
UpdateCells
End Sub

Private Sub ComboBox2_Change()
UpdateCells
End Sub

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
ComboBox1.Enabled = True
End If
If CheckBox1.Value = False Then
ComboBox1.Enabled = False
End If
End Sub

Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
ComboBox2.Enabled = True
End If
If CheckBox2.Value = False Then
ComboBox2.Enabled = False
End If
End Sub

Sub UpdateCells()
If ComboBox1.Value = "Болезнь" Then
*.Range (B1) = CheckBox1.Caption
End If
If ComboBox1.Value = "Прогул" Then
*.Range (B1) = CheckBox1.Caption
End If
If ComboBox2.Value = "Болезнь" Then
*.Range (B2) = CheckBox2.Caption
End If
If ComboBox2.Value = "Прогул" Then
*.Range (B2) = CheckBox2.Caption
End If
End Sub

Если выбираю для Петрова Прогул, а потом Болезнь, то он пишется в обеих ячейках. Не знаю как можно реализовать удаление CheckBox.Caption из одной ячейки, если оно вставляется в другую.
Вариант работы с IIf, как я понял подходит, но только для 2х фамилий, а если их больше, что делать?

Прикрепил картинку формы. Изначально ComboBox-ы неактивны.

[NoirSpirit]

Если вариантов с моим подходом нет, то может есть способ сделать подобное другим способом?

[VictorM]

Прикрепил картинку формы.

Если бы Вы изначально вместо картинки прикрепили файл, то возможно варианты уже были бы. И может даже не один.
Все таки здесь форум Excel, а не фотошоп...

[NoirSpirit]

Не думал, что могу просто кинуть файл и попросить его исправить. Поэтому и написал код текстом.

Спасибо за подсказку. Выкладываю файл:

[VictorM]

но только для 2х фамилий, а если их больше

"Меня терзают смутные сомнения"......
А если у Вас будет штат 150-200 человек, это что, на каждого по чекбоксу и комбобоксу?

[VictorM]

Может я что-то не понял.
Но если это не просто учебный пример, то подход к решению ИМХО неправильный

[NoirSpirit]

Я совсем недавно начал изучать программирование VBA. Все чего хочу в данной теме, это получить помощь в нахождении "правильного" подхода или примера. Как я уже писал ранее, для 2-х человек я более-менее сделал форму. А вот как подходить к такому решению, если человек в списке 3 и больше..