Office Tips and Hints Blog

Use your pdf converter to make your pdf files easy! You can now buy software that makes converting pdf to doc possible! Did you know you can even convert pdf to word?

Home Page

Bloglines

1906
CelebrateStadium
2006

OfficeZealot

Scobleizer

TechRepublic

AskWoody

SpyJournal

Host your Web site with PureHost!

Saturday, March 05, 2005 – Permalink –

EXCEL

Customize Date in Footer

Formatting

This subroutine inserts the current date in the footer of all sheets in the active workbook. This process can be accomplished without a macro, however, you'll need the macro if you want to specify the formatting of the current date. An example of the return generated by running this macro is Saturday, March 05, 2005.
Sub PutCurrentDateInCenterFooterAllSheetsInWorkbook() For Each oSheet In ActiveWorkbook.Sheets oSheet.PageSetup.CenterFooter = Format(Now(), "dddd mmmm dd, yyyy") Next End Sub

You can change the word CenterFooter to CenterHeader. You could also use LeftHeader, RightHeader, LeftFooter, or RightFooter.
Microsoft KnowledgeBase:
Macro to Change the Date/Time Format in a Header/Footer

See all Topics

<Doug Klippert@ 8:26 AM

Comments: Post a Comment

Links to this post:

<$BlogBacklinkTitle$>

<$BlogBacklinkSnippet$>
posted by <$BlogBacklinkAuthor$> @ <$BlogBacklinkDateTime$>

Create a Link