LandscapeFontNames Property Example
This example displays the landscape font names in the FontNames object at the end of the active document.
For Each aFont In LandscapeFontNames
response = MsgBox(Prompt:=aFont, Buttons:=vbOKCancel)
If response = vbCancel Then Exit For
Next aFont