スキルアップ・問題解決なら、モーグにおまかせ！

書式設定ツールバーのフォント選択コンボボックスはCommandBarComboBoxであるため、そのリストを取得することが可能です。
サンプルでは、リストを取得することで使用可能なフォントの一覧をシート上に作成します。

Sub AvailableFonts()

Dim Ctrl As CommandBarComboBox
Dim i As Integer

Set Ctrl = Application.CommandBars("Formatting"). _
        Controls("フォント(&F):")

For i = 1 To Ctrl.ListCount
ActiveSheet.Cells(i, 1).Value = Ctrl.List(i)
Next i

End Sub