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.

Hi
AFAIK you can't achieve this as you can set the font style only for the
complete fotter text

"Donald" wrote:

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.

If you record a macro when you do this manually, you'll see that &U turns on/off
underlining. Just select your charactersto underline, then hit the A icon and
format those characters like you want:

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

Donald wrote:

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.

--

Dave Peterson

Whoops, this actually seems to underline ALL of my footer

D.S.

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

The code I posted worked nicely for me (xl2002).

Can you post your code--and what is returned by application.username?



Donald Stockton wrote:

Whoops, this actually seems to underline ALL of my footer

D.S.

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

--

Dave Peterson

Hi All,

How could i catch the result of a MsgBox and derive actions from th
user decision? Any help welcome!.

Thanks in advance

jose luis

P.D. Here is what i though will do the trick. I was wrong. :(


GuardarAntes()
MsgBox "Save Changes?", vbYesNoCancel, "Save?"

If VbMsgBoxResult.vbYes = 6 Then
MsgBox "Yes"
End If
If VbMsgBoxResult.vbNo = 7 Then
MsgBox "No"
End If
End Su

--
jose lui
-----------------------------------------------------------------------
jose luis's Profile: http://www.excelforum.com/member.php...fo&userid=1331
View this thread: http://www.excelforum.com/showthread.php?threadid=27350

Have you tried the documentation for Msgbox? It gives an example...

On Sun, 31 Oct 2004 00:53:45 -0500, jose luis
wrote:


Hi All,

How could i catch the result of a MsgBox and derive actions from the
user decision? Any help welcome!.

Thanks in advance

jose luis

P.D. Here is what i though will do the trick. I was wrong. :(


GuardarAntes()
MsgBox "Save Changes?", vbYesNoCancel, "Save?"

If VbMsgBoxResult.vbYes = 6 Then
MsgBox "Yes"
End If
If VbMsgBoxResult.vbNo = 7 Then
MsgBox "No"
End If
End Sub