Sub ki067()
Sheets.Add
i = 1
For Each cm In Application.CommandBars
    Cells(1, i) = cm.Index
    Cells(2, i) = cm.Name
    
    If cm.Type = 0 Then
        Cells(3, i) = "msoBarTypeNomak"
    ElseIf cm.Type = 1 Then
        Cells(3, i) = "msoBarTypeMenuBar"
    Else
        Cells(3, i) = "msoBarTypePopup"
    End If
        
    j = 5
  For Each kumok In cm.Controls
     Cells(j, i) = kumok.Caption & "  " & kumok.ID
     j = j + 1
  Next
  i = i + 1
Next
Sheets("Title").Select
End Sub