excel下拉列表从其他工作表中获取信息

我正在尝试创建一个下拉列表，其中包含工作簿中其他工作表的名称。当我从下拉列表中选择其中一个姓名时，我希望它能从该工作表中抓取所有人的姓名，并用下拉列表显示在工作表上。但我想不出来

使用此代码：

Dim SheetSel As Boolean

Sub InitCMB()
    ComboBox1.Clear
    For Each xx In Sheets
        ComboBox1.AddItem xx.Name
    Next
    SheetSel = True
End Sub

Private Sub ComboBox1_Change()
    If SheetSel = True Then
        e = ComboBox1.ListIndex + 1
        SheetSel = False
        ComboBox1.Clear
        ComboBox1.AddItem ".."
        For i = 1 To 9999
            If Sheets(e).Range("A" & i).Value = "" Then Exit For
            ComboBox1.AddItem Sheets(e).Range("A" & i).Value
        Next
    Else
        If ComboBox1.Value = ".." Then InitCMB
    End If

End Sub

在组合框中插入图纸名称（InitCMB）。
如果选择一张工作表，宏会将名称从A1加载到所选工作表的末尾。
在列表顶部添加“.”如目录。选择“.”后，将返回到图纸列表