SubGetFontList()DimmyControlAsCommandBarComboBoxDimIAsIntegerSetmyControl=Application.CommandBars("Formatting").FindControl(ID:=1728)WithmyControlForI=1To.ListCount-1Cells(I,1)=.List(I)NextEndWithEndSub