The following code will programmatically add the user's name as well as date
and time to the right footer as well as setting the fonts of both lines in
the footer.

ActiveSheet.PageSetup.RightFooter = _
"&""Brush Script mt,italic""&14" & Application.UserName & _
Chr(10) & "&""Times New Roman""&8" & "&D &T"

How do I get it to underline the user name? (only the user name)

--
D.S.