.Label52 = DatePart("ww", D1, vbMonday, vbFirstJan1)
.Label53 = DatePart("ww", D1 + 7, vbMonday, vbFirstJan1)
.Label54 = DatePart("ww", D1 + 14, vbMonday, vbFirstJan1)
.Label55 = DatePart("ww", D1 + 21, vbMonday, vbFirstJan1)
.Label56 = DatePart("ww", D1 + 28, vbMonday, vbFirstJan1)
.Label57 = DatePart("ww", D1 + 35, vbMonday, vbFirstJan1)