Sub AddFridays()
RowNum = 1
MyYear = 2009
NewYears = DateSerial(MyYear, 1, 1)
LastCol = Cells(1, Columns.Count).End(xlToLeft).Column
DayofWeek = Weekday(NewYears, vbFriday)
FirstFriday = NewYears + ((8 - DayofWeek) Mod 7)

'add new row
Rows(RowNum).Insert

For ColCount = 1 To LastCol
WeekNum = Cells(RowNum + 1, ColCount)
FridayofWeek = FirstFriday + (7 * (WeekNum - 1))
Cells(RowNum, ColCount) = Format(FridayofWeek, "yyyy-mmm-dd")
Next ColCount


End Sub


"QB" wrote:

I have a row with week numbers and would like to insert a row above it which
list the Friday of that week number. How can I do this?

Week 19 would give 2009-May-08 (yyyy-mmm-dd)

Thank you

QB