Excel VBA单元格组合框（数据验证列表）是否设置所选索引？

我正在使用Excel VBA制作一个简单的应用程序，我有一个带有数据验证的单元格，使其成为组合框，我可以使用VBA代码为其设置selectedIndex吗？怎么做

---

如果我理解正确，并且在打开带有单元格的工作表时，您需要在单元格中输入一些值，请尝试将以下代码插入此工作簿模块：

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name = "%%SheetWithCELL%%" Then
        Sh.Range("CELL").Value = "%%NeededValue%%"
    End If
End Sub

在哪里

%%SheetWithCELL%%-单元格所在的工作表的名称

%%NeededValue%%-值，需要插入到单元格中

---

p.S.代码假定单元格是某个名为range的单元格的实际名称

CELL.Value=Blah BlahThank，这是工作，但如何在加载工作表时运行它，WorksheetActive事件似乎不起作用，WorkbookOpen事件说范围为空错误，可能工作簿openSheet1.RangeA1.Value=Blah Blah没有检查表名，我们仍然可以通过表名或索引分配值，但在这种情况下是单元格。选择任何表时，将设置值。