How to add a modified date in header(excel)?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I need to get in header the date when the excel document have last modified.
I tried using &[Date] this brings the current date when we open the doc.

Kindly suggest good way of doing this.
 
Private Sub Workbook_BeforePrint(Cacel As Boolean)
With ActiveWorkbook
.ActiveSheet.PageSetup.LeftHeader = "Last saved on: " & _
Format(.BuiltinDocumentProperties("Last Save Time"), "dd mmm
yyyy")
End With
End Sub


goes in the ThisWorkbook code module.


Watch the wrap-around on the Format line


--

HTH

RP
(remove nothere from the email address if mailing direct)
 
HI Bob,
Thanks for the reply.
But the function does't work it gives and error. Kindly check it and let me
know the updated function.

Once again thanks for ur effort.

Regards
Thanga

Bob Phillips said:
Private Sub Workbook_BeforePrint(Cacel As Boolean)
With ActiveWorkbook
.ActiveSheet.PageSetup.LeftHeader = "Last saved on: " & _
Format(.BuiltinDocumentProperties("Last Save Time"), "dd mmm
yyyy")
End With
End Sub


goes in the ThisWorkbook code module.


Watch the wrap-around on the Format line


--

HTH

RP
(remove nothere from the email address if mailing direct)


Thanga said:
I need to get in header the date when the excel document have last modified.
I tried using &[Date] this brings the current date when we open the doc.

Kindly suggest good way of doing this.
Click to expand...
Click to expand...
 
I did say to watch the wrap-around. The yyyy") should be on the same line as
the Format.

--

HTH

RP
(remove nothere from the email address if mailing direct)


Thanga said:
HI Bob,
Thanks for the reply.
But the function does't work it gives and error. Kindly check it and let me
know the updated function.

Once again thanks for ur effort.

Regards
Thanga

Bob Phillips said:
Private Sub Workbook_BeforePrint(Cacel As Boolean)
With ActiveWorkbook
.ActiveSheet.PageSetup.LeftHeader = "Last saved on: " & _
Format(.BuiltinDocumentProperties("Last Save Time"), "dd mmm
yyyy")
End With
End Sub


goes in the ThisWorkbook code module.


Watch the wrap-around on the Format line


--

HTH

RP
(remove nothere from the email address if mailing direct)


Thanga said:
I need to get in header the date when the excel document have last modified.
I tried using &[Date] this brings the current date when we open the doc.

Kindly suggest good way of doing this.
Click to expand...
Click to expand...
Click to expand...
 
Back
Top