Show current week number
This little simple code snippet generates the calender week number, counting the first week with four or more days in the new year as week 1.
2946 Since 25th November, 2003
Select and Copy the Code
WeekNumber = DatePart("ww", Date, 2, vbFirstFourDays)