Sub AAA()
Dim N As Long
With Application.CommandBars
For N = 1 To .Count
Cells(N, 1).Value = .Item(N).Name
Next N
End With
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)

"Synapse" wrote in message
...
Hi,
I'm looking for a list of all the available commandbars in Excel 2007. For
example CommandBars("Cell") is one of them.
Thank you