Underline Property Example

This example adds a single underline to all cell values in row 1.

Set c = Spreadsheet1.Constants
Spreadsheet1.Rows(1).Font.Underline = c.owcUnderlineStyleSingle