Date: Week in header

[happysak]

I need to automatically add to a header the dates of the week (Monday through
Friday) that the current date falls in. For example, today is 12/04/2007. I
want the header to also show that this week is 12/03/07-12/07/07. Any help?
Thanks

 

[Roger Govier]

Hi

Try
=TEXT((A1-WEEKDAY(A1)+2),"dd/mm/yy")& " - "
&TEXT((A1-WEEKDAY(A1))+6,"dd/mm/yy")

 

[Gary''s Student]

Put the following macro in the workbook code area:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
d = Date
d1 = d - Application.WorksheetFunction.Weekday(d) + 2
d2 = d1 + 4
ActiveSheet.PageSetup.CenterHeader = d1 & "-" & d2
End Sub

 

[happysak]

This might have worked with a little tweaking. You gave me lots of ideas I
can use another time. In the meantime, next reply worked. Thanks for your
help.

 

[happysak]

This worked just fine. I actually wanted the week on the left under some
other dates, text, etc., but I was able to figure out how to do that. This
will make my life a whole lot easier. Thank you for your expertise and for
sharing it.