In diesem Beispiel wird die Schriftart für die aktive Zelle in Sheet1 einfach unterstrichen formatiert.
Worksheets("Sheet1").Activate ActiveCell.Font.Underline = xlUnderlineStyleSingle