Update a Date Quarterly

[Guest]

I work for a financial institution, and we have reports that are updated
quarterly. The reports are in PowerPoint 2003, though there are embedded
Excel spreadsheets. After the reports are generated each quarter (March 31,
June 30, September 30 and December 31) afterwards we are forced to manually
update the date from one to another, using the Find and Replace tool (because
the date is listed in the footer of each page). Is there a function I could
create for it to be down manually? Thanks.

 

[Bob Phillips]

This will base it upon today's date


Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftFooter = Format(DateSerial(Year(Date), _
(Int((Month(Date) - 1) / 3) + 1) * 3 + 1, 0), "mmmm dd")
End With
End Sub

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code



--

HTH

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