Installed Font(s) List with Sample

[glen_keys]

Is it possible to have Excel generate a list of all fonts installed on my computer, with a sample of each?

 

[VoG]

Hello and welcome to MrExcel.

Try

Sub ListFonts()
Dim i As Long
Application.ScreenUpdating = False
Worksheets.Add
With Application.CommandBars.FindControl(ID:=1728)
    For i = 1 To .ListCount
        Cells(i, 1).Value = .List(i)
        Cells(i, 2).Font.Name = .List(i)
        Cells(i, 2).Value = "Sample"
    Next
End With
Columns("A:B").AutoFit
Application.ScreenUpdating = True
End Sub

 

[glen_keys]

That worked perfectly. Thank you for responding so quickly. You are outstanding.

Take Care