Need to edge out the competition for your dream job? Train for certifications today.
Application.ScreenUpdating = False
yr = Year(Date)
rw = 4
For Idx = 1 To 53
With Range("b" & rw)
.Value = Idx & "W" & yr
.Font.Bold = True
.Pattern = xlSolid
.ThemeColor = xlThemeColorDark2
.TintAndShade = -0.249977111117893
.LineStyle = xlContinuous
.ColorIndex = 0
.Weight = xlThin
rw = rw + 1
For Idx1 = 1 To 6
With Range("b" & rw).Resize(2)
.Value = Format(DateSerial(yr, 1, 1) + ((Idx - 1) * 7) + Idx1 - 1, "dddd, mmmm d, yyyy")
.HorizontalAlignment = xlRight
rw = rw + 2
Application.ScreenUpdating = True
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.