View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
maryj maryj is offline
external usenet poster
 
Posts: 76
Default logon name in footer

Perfect!!
--
maryj


"Chip Pearson" wrote:

Try

ActiveSheet.PageSetup.RightFooter = Environ("username")


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"maryj" wrote in message
...
I found this code for putting the user name found in Tools,
options into the
footer

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = Application.UserName
End Sub

How could this be changed to show the logon name. I tried
changing
Application to Environ but that didn't work.

Thanks for your help!!
--
maryj