Valerie

Copy/paste this code into ThisWorkbook module.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI _
As Boolean, Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = "Last Saved By: " _
& Application.UserName & " On " & Date
End Sub

'delete & " On " & Date if date no needed

To do that, right-click on the Excel logo left of "File" on the menu bar or on
logo at left side of window if running non-maximized,

Select "View Code".

Copy/paste the above into the module.


Gord Dibben Excel MVP

On Mon, 7 Feb 2005 12:31:01 -0800, "Valerie"
wrote:

In Excel under File Properties Statistics it includes the name of the
last person who saved a workbook. I want to include in the footer. How do I
do that?