And in addition to the below, how can I change the format. Such as times new
roman and 8 font (within this code)
Thank You,

"tjh" wrote:

Thanks for your respons,

I changed the code slightly to include the hour and minute, but it did not
seem to work correctly. It shows 12:00 AM as the current time.

Private Sub Workbook_SheetChange( _
ByVal Sh As Object, ByVal Target As Excel.Range)
Sh.PageSetup.RightFooter = Format(Date, "dd mmm yyyy" & " " & "hh:mm
AMPM")
End Sub


Thank You,




"JE McGimpsey" wrote:

One way:

Put something like this in the ThisWorkbook code module:

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

Note that this will only indicate when a cell is changed due to user
input (or external data link).

Also, if there are links between multiple worksheets, you'd need to
update each worksheet, not just the worksheet that was changed.

If you're not familiar with macros, take a look he

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


In article ,
tjh wrote:

Hello,

Is it possible to place in the footer of a spreadsheet the date that the
report was last modified, rather than the date the report is printed or the
current date.

Thanks,