Font Property Example

This example sets the font in cell B5 on Sheet1 to 14-point bold italic.

With Worksheets("Sheet1").Range("B5").Font
    .Size = 14
    .Bold = True
    .Italic = True
End With