Sub test()
Dim CB As CommandBar
Dim CL As Object
Dim rowIndex As Long
    rowIndex =  1 
    On Error Resume Next
    For Each CB In CommandBars
        For Each CL In CB.Controls
            Cells(rowIndex,  1 ).Value = CL.Caption
            Cells(rowIndex,  2 ).Value = CL.OnAction
            Cells(rowIndex,  3 ).Value = CL.Tag
            Cells(rowIndex,  4 ).Value = CL.Creator
            Cells(rowIndex,  5 ).Value = CL.Type
            rowIndex = rowIndex +  1 
        Next CL
    Next CB
    Set CL = Nothing
    Set CB = Nothing
End Sub