Range('A1').Font.Underline = xlUnderlineStyleDouble The following code sets the font of cell A1 to xlUnderlineStyleDouble (double underline). The value of this property can be set to one of the constants: xlUnderlineStyleNone, xlUnderlineStyleSingle, xlUnderlineStyleDouble, xlUnderlineStyleSingleAccounting, xlUnderlineStyleDoubleAccounting. The following code sets the font size of cell A1 to 14. The value of this property can be set to an integer value from 1 to 409. The following code sets the font style of range A1:A5 to Italic. The value of this property can be set to one of the constants: Regular, Bold, Italic, Bold Italic. The following code sets the font name of range A1:A5 to Calibri. The value of this property can be set to one of the fonts: Calibri, Times new Roman, Arial.
