Private Sub ComboBox1_Click()
With ComboBox1
If .ListIndex <> -1 Then ActiveCell.Interior.ColorIndex = _
Switch(.ListIndex = 0, 3, .ListIndex = 1, 6, .ListIndex = 2, 11, _
.ListIndex = 3, 43, .ListIndex = 4, 15, .ListIndex = 5, 8, .ListIndex = 6, 35)
End With
End Sub
Private Sub UserForm_Initialize()
ComboBox1.List = Range("A3:A9").Value
End Sub