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