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