FontNames Property Example

This example displays the font names in the FontNames collection.

For Each aFont In FontNames
    response = MsgBox(Prompt:=aFont, Buttons:=vbOKCancel)
    If response = vbCancel Then Exit For
Next aFont