Rozwijalna lista zakladek / akuszy skoroszytu Excel / Drop-down list of Excel workbook sheets VBA

Jeżeli potrzebna jest lista rozwijalna wszystkich arkuszy, które zawiera skoroszyt to:

- jeżeli skoroszyt zawiera do 16 arkuszy można użyć:

Sub ListaArkuszyNormal() 'zwykła lista
    Application.CommandBars("Workbook Tabs").ShowPopup
End Sub


- jeżeli skoroszyt zawiera więcej niż 16 arkuszy to można użyć:

Sub ListaArkuszyBig() 'jeżeli więcej niż 16 arkuszy
If ActiveWorkbook.Sheets.Count <= 16 Then
Application.CommandBars("Workbook Tabs").ShowPopup
Else
Application.CommandBars("Workbook Tabs").Controls(16).Execute
End If
End Sub

Można również ustawić sobie skrót klawiszowy wchodząc w opcje danego makra