Option
Explicit
Private
Sub
ComboBox1_Click()
MsgBox
"ComboBox1_Click"
End
Sub
Private
Sub
ComboBox1_Enter()
MsgBox
"ComboBox1_Enter"
End
Sub
Private
Sub
ComboBox2_Click()
MsgBox
"ComboBox2_Click"
End
Sub
Private
Sub
ComboBox2_Enter()
MsgBox
"ComboBox2_Enter"
End
Sub
Private
Sub
ComboBox3_Click()
MsgBox
"ComboBox3_Click"
End
Sub
Private
Sub
ComboBox3_Enter()
MsgBox
"ComboBox3_Enter"
End
Sub
Private
Sub
UserForm_Initialize()
Dim
i
As
Long
For
i = 1
To
3
ComboBox1.AddItem
"CBX1_Item"
& i
ComboBox2.AddItem
"CBX2_Item"
& i
ComboBox3.AddItem
"CBX3_Item"
& i
Next
End
Sub