One way:

Put this in the ThisWorkbook code module:

Private Sub Workbook_SheetChange( _
ByVal Sh As Object, _
ByVal Target As Excel.Range)
Sh.PageSetup.LeftFooter = _
"Last Changed: " & Format(Date, "dd mmm yyyy")
End Sub



If you're not familiar with macros, see

http://www.mvps.org/dmcritchie/excel/getstarted.htm



In article ,
"LynnH" wrote:

Hi,
I have a workbook that contains several spreadsheets. I currently have the
footer set for all the worksheets to pull the date from the system. How do I
set up the date so that the footer date changes only on the specific
spreadsheet that has been updated, and not for the entire workbook?

Thanks!