View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
Mike H Mike H is offline
external usenet poster
 
Posts: 11,501
Default How do I display the last updated date in the page header?

Hi,

Alt + F11 to open VB editor. Double click 'This workbook' and paste this in
on the right. Change the range to suit.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Sheet1").Range("A1").Value = _
ActiveWorkbook.BuiltinDocumentProperties(12).Value
End Sub

Mike

"Aging Hippie" wrote:

I need to display the date the workbook was last modified in the page header
when it's printed.