Underline Property Example
This example sets the font in the active cell on Sheet1 to single underline.
Worksheets("Sheet1").Activate ActiveCell.Font.Underline = xlUnderlineStyleSingle