i searched the newsgroup for this "last modified date in header", &
the 1st post listed an example.........

title: Need some code for header/ footer, another case of "last saved
by.

http://groups.google.com/group/micro...d4b9aa2fd5198b


Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In ThisWorkbook.Worksheets
wkSht.PageSetup.RightFooter = ("&20Last Saved or Modified by
") & _
(Format(ThisWorkbook.BuiltinDocumentProperties("La st
Author"))) &
("&20 on ") & _
(Format(ThisWorkbook.BuiltinDocumentProperties("La st Save
Time")))
Next wkSht
End Sub


watch out for line breaks if you cut & paste this........
hth susan



On May 23, 11:01 am, Me wrote:
Can I put the last modified time and date into a header in Excel 2003?

If so, how would I do that?

Thank you in advance.

I never used Google groups before, but now I have it bookmarked. :-)

This code works for me, except I cannot get the footer to appear in 8 point
font. The default is set at 20 point, and no matter how often I change the
footer font, or how many times I save the file, I cannot get the font in the
footer to change.

Thank you for your help.

Me

"Susan" wrote:

i searched the newsgroup for this "last modified date in header", &
the 1st post listed an example.........

title: Need some code for header/ footer, another case of "last saved
by.

http://groups.google.com/group/micro...d4b9aa2fd5198b


Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In ThisWorkbook.Worksheets
wkSht.PageSetup.RightFooter = ("&20Last Saved or Modified by
") & _
(Format(ThisWorkbook.BuiltinDocumentProperties("La st
Author"))) &
("&20 on ") & _
(Format(ThisWorkbook.BuiltinDocumentProperties("La st Save
Time")))
Next wkSht
End Sub


watch out for line breaks if you cut & paste this........
hth susan



On May 23, 11:01 am, Me wrote:
Can I put the last modified time and date into a header in Excel 2003?

If so, how would I do that?

Thank you in advance.

Edit: I figured out how to change the font. That '20' is in the code for a
reason. :-p

Thanks again for your help.

"Me" wrote:

I never used Google groups before, but now I have it bookmarked. :-)

This code works for me, except I cannot get the footer to appear in 8 point
font. The default is set at 20 point, and no matter how often I change the
footer font, or how many times I save the file, I cannot get the font in the
footer to change.

Thank you for your help.

Me

"Susan" wrote:

i searched the newsgroup for this "last modified date in header", &
the 1st post listed an example.........

title: Need some code for header/ footer, another case of "last saved
by.

http://groups.google.com/group/micro...d4b9aa2fd5198b


Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In ThisWorkbook.Worksheets
wkSht.PageSetup.RightFooter = ("&20Last Saved or Modified by
") & _
(Format(ThisWorkbook.BuiltinDocumentProperties("La st
Author"))) &
("&20 on ") & _
(Format(ThisWorkbook.BuiltinDocumentProperties("La st Save
Time")))
Next wkSht
End Sub


watch out for line breaks if you cut & paste this........
hth susan



On May 23, 11:01 am, Me wrote:
Can I put the last modified time and date into a header in Excel 2003?

If so, how would I do that?

Thank you in advance.

I never used Google groups before

Install my GoogleSearch add-in

http://www.rondebruin.nl/Google.htm




--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Me" wrote in message ...
I never used Google groups before, but now I have it bookmarked. :-)

This code works for me, except I cannot get the footer to appear in 8 point
font. The default is set at 20 point, and no matter how often I change the
footer font, or how many times I save the file, I cannot get the font in the
footer to change.

Thank you for your help.

Me

"Susan" wrote:

i searched the newsgroup for this "last modified date in header", &
the 1st post listed an example.........

title: Need some code for header/ footer, another case of "last saved
by.

http://groups.google.com/group/micro...d4b9aa2fd5198b


Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In ThisWorkbook.Worksheets
wkSht.PageSetup.RightFooter = ("&20Last Saved or Modified by
") & _
(Format(ThisWorkbook.BuiltinDocumentProperties("La st
Author"))) &
("&20 on ") & _
(Format(ThisWorkbook.BuiltinDocumentProperties("La st Save
Time")))
Next wkSht
End Sub


watch out for line breaks if you cut & paste this........
hth susan



On May 23, 11:01 am, Me wrote:
Can I put the last modified time and date into a header in Excel 2003?

If so, how would I do that?

Thank you in advance.