Returns a FontNames object that includes the names of all the available fonts. Read-only.
Example
This example displays the font names in the FontNames collection.
Dim strFont As String
Dim intResponse As Integer
For Each strFont In FontNames
intResponse = MsgBox(Prompt:=strFont, Buttons:=vbOKCancel)
If intResponse = vbCancel Then Exit For
Next strFont