如何在组合框| excel vba中显示所有图纸名称|

我有一个场景，希望在combobox中显示所有工作表名称

在主工作表上，我有一个下拉组合框

此组合框应显示excel中的所有工作表名称

输出：

Sheet1
Sheet2
Sheet3
.
.
.

如何修改下面的代码以在组合框中获取所有工作表名称

Private Sub ComboBoxpgname_DropButtonClick()

    With Worksheets("A1")
                ComboBoxpgname.List = .Range("B2:B" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value
    End With

End Sub

尝试以下代码

Private Sub ComboBoxpgname_DropButtonClick()
Dim sh As Worksheet

    ComboBoxpgname.Clear 'Clear combobox
    For Each sh In ThisWorkbook.Worksheets
        ComboBoxpgname.AddItem sh.Name
    Next sh

End Sub

---

如果这个答案解决了你的问题，那么你可以先提供解决方案，然后把答案当成是被接受的。勾选绿色。