John
?format(DatePart("WW", Now()),"00")

NickHK

"John Ortt" wrote in message
...
Hi everyone.

I am currently using the following code to obtain two digit week numbers
in
excel. Is there an easier or cleaner way of doing it?

If Len(DatePart("WW", Now())) < 2 Then _
maxDate = DatePart("YYYY", Now()) & " 0" & _
DatePart("WW", Now()) _
Else maxDate = DatePart("YYYY", Now()) & " " & _
DatePart("WW", Now()) _


Thanks,

John