Er en given font installeret

Fandt selv en løsning:

    Const StartRow As Integer = 4
    Dim FontNamesCtrl As CommandBarControl, FontCmdBar As CommandBar, tFormula As String
    Dim fontName As String, i As Long, fontCount As Long, fontSize As Integer
    fontSize = 10
    Set FontNamesCtrl = Application.CommandBars("Formatting").FindControl(ID:=1728)
    If FontNamesCtrl Is Nothing Then
        Set FontCmdBar = Application.CommandBars.Add("TempFontNamesCtrl", _
            msoBarFloating, False, True)
        Set FontNamesCtrl = FontCmdBar.Controls.Add(ID:=1728)
    End If
    Application.ScreenUpdating = False
    fontCount = FontNamesCtrl.ListCount
    Workbooks.Add
    For i = 0 To FontNamesCtrl.ListCount - 1
        fontName = FontNamesCtrl.List(i + 1)
          If fontName = "Arial" Then
            'Fonten er installeret, gør noget!
          End If
    Next i
    Application.StatusBar = False
    If Not FontCmdBar Is Nothing Then FontCmdBar.Delete
    Set FontCmdBar = Nothing
    Set FontNamesCtrl = Nothing