I am Y.A. in awe - the crowd chants "Chip! Chip!"

On Fri, 8 Aug 2003 14:09:40 -0500, "Chip Pearson"
wrote:

Dim CBX As Office.CommandBarComboBox
Dim Ndx As Long
Set CBX = Application.CommandBars.FindControl(ID:=1728)
For Ndx = 1 To CBX.ListCount
Cells(Ndx, 1).Value = CBX.List(Ndx)
Cells(Ndx, 2).Value = CBX.List(Ndx)
Cells(Ndx, 2).Font.Name = CBX.List(Ndx)
Next Ndx



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC