CommandBarID ve İsim Listesini Getir - Microsoft Excel

Microsoft Excel uygulamasındaki CommandBarID ve isim listesini getirmeye yarayan VBA kodu alternatifidir.

Option Explicit

Sub CommandBarIDveIsimListesiniGetir()
    Dim i          As Long
    Dim commandBar As Object
    
    i = 1
    For Each commandBar In Application.CommandBars
        Range("A" & i) = commandBar.ID
        Range("B" & i) = commandBar.Name
        i = i + 1
    Next
End Sub