Excel VBA, Underline Font Style

Aug 27, 2015 by azurous in Excel

This article explains the different types of underlines possible to apply to cells and ranges. It also provides the associated VBA code for adding the underline.

For examples using these codes please see:

Jump To:

Single, xlUnderlineStyleSingle
Double, xlUnderlineStyleDouble
Single Accounting, xlUnderlineStyleSingleAccounting
Double Accounting, xlUnderlineStyleDoubleAccounting

–

Contents

Single, xlUnderlineStyleSingle:

The following line of code creates an underline for the font in cell A1:

Range("A1").Font.Underline= xlUnderlineStyleSingle

Before:

After:

–

Double, xlUnderlineStyleDouble:

The following line of code creates a double underline for the font in cell A1:

Range("A1").Font.Underline= xlUnderlineStyleDouble

Before:

After:

–

Single Accounting, xlUnderlineStyleSingleAccounting:

The following line of code creates a single accounting underline. Note that this underline covers the entire cell regardless of the text inside the cell:

Range("A1").Font.Underline= xlUnderlineStyleSingleAccounting

Before:

After:

–

Double Accounting, xlUnderlineStyleDoubleAccounting:

The following line of code creates a double accounting underline. Note that this underline covers the entire cell regardless of the text inside the cell:

Range("A1").Font.Underline= xlUnderlineStyleDoubleAccounting

Before:

After:

xlUnderlineStyleNone: The following line of code removes the underline for the font in cell A1:

Range("A1").Font.Underline = xlUnderlineStyleNone