Как отобразить все название листа в выпадающем списке | Excel VBA |

Question

У меня есть сценарий, в котором я хочу отобразить все имена листов в комбинированном списке

На главном листе у меня есть один выпадающий список

этот комбинированный список должен отображать все имена листов, представленные в 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

Answer 1

Попробуйте следующий код

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