This example sets the default fixed-width font for the English/Western European/Other Latin Script character set to Courier New, 14 points.
With Application.DefaultWebOptions _
.Fonts(msoCharacterSetEnglishWesternEuropeanOtherLatinScript)
.FixedWidthFont = "Courier New"
.FixedWidthFontSize = 14
End With