Underline Property Example

This example sets the font in the active cell on Sheet1 to single underline.

Worksheets("Sheet1").Activate
ActiveCell.Font.Underline = xlUnderlineStyleSingle