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.
3011 Since 25th November, 2003
Select and Copy the Code
WeekNumber = DatePart("ww", Date, 2, vbFirstFourDays)