Here is one option that might work for you

__________________________

Private Sub Workbook_Open()

Set objWord = CreateObject("Word.Application")
strInitials = objWord.UserInitials
objWord.Quit
Set objWord = Nothing

For Each objWksheet In ThisWorkbook.Worksheets
objWksheet.PageSetup.LeftFooter = strInitials
Next objWksheet

End Sub

__________________________

Steve

"mkblue" wrote in message
...
I would like the author's initials to appear in a footer. How do I add a
code so that when the user changes, it automatically changes the footer?