I am trying to get column headers in the format of YYWW
(ie. 0352, 0401, 0402 etc.) from the current date then 52
weeks/columns into the future.

I thought I had cracked it using the not very neat
solution of:-

Range("A1") = Right(DatePart("yyyy", Date), 2) & DatePart
("ww", Date)
then using a custom list to autofill the other columns.

0352 worked fine then 0401 came out as 041 and I'm back to
scatching my head again.

Any ideas?

Graham