SubstituteFont Method Example

This example substitutes Courier for Myfont.

Application.SubstituteFont UnavailableFont:= "Myfont", _
    SubstituteFont:= "Courier"