Footer... Entering Serial Nos and incremnting daily

[Gunjani]

In the footer, is it possible to AUTOmatically place a serial number,
say starting at 00035 on 18 November 2005, each time the date is
changed, daily, the serial number increment by the same number of days.
i.e

19/11/05.... 00036
20/11/05.... 00037
21/11/05.... 00038
22/11/05.... 00039

If it cannot be placed in the Footer is there any otherway?

Thanks for any suggestions.

 

[Guest]

Gunjani-

I would run the 1st macro on the 18th and then place the 2nd macro in the
ThisWorkbook module:

Sub StartFooter()
ActiveSheet.PageSetup.CenterFooter = "00035"
End Sub

Sub Workbook_Open()
Dim iDiff As Integer
Dim sNewNum As String
iDiff = Int(Now) - DateSerial(2005, 11, 18)
sNewNum = CStr(Format(35 + iDiff, "00000"))
ActiveSheet.PageSetup.CenterFooter = sNewNum
End Sub