excel VBA 怎么用代码 指定下拉框的选中项

Question

比如 我在下拉框 有 A，B，C三个项， 现在我要用代码 指定选中 B并且我在选择了B和 触发一些事件。

Answer 1

默认值
ComboBox1.AddItem "sheet1"
ComboBox1.AddItem "sheet2"
ComboBox1.AddItem "sheet3"设置选择项
ComboBox1.Value = "sheet1"ComboBox1选择项改变触发事件
Private Sub ComboBox1_Change()ComboBox1.AddItem "tt"End Sub

Answer 2

我的下拉框 不是 combox呀 是我用  sht.Cells(n, 26).Select
                 With Selection.Validation
                    .Delete
                    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                     xlBetween, Formula1:=str1
                    .IgnoreBlank = True
                    .InCellDropdown = True
                    .InputTitle = ""
                    .ErrorTitle = ""
                    .InputMessage = ""
                    .ErrorMessage = ""
                    .IMEMode = xlIMEModeNoControl
                    .ShowInput = True
                    .ShowError = True
                End With
VBA代码 指定生成的 因为我要循环很多数据 每一行的某一个列 就需要成下拉框那种形式怎么给他添加上事件呢？