Try this

Worksheets.Add.Name = "Wk " & weeknum(Now)

You must check the Analysis toolpack VBA add-in
ToolsAdd-ins in Excel

And in the VBA editor
Tools References, and put a check next to "ATPVBAEN.xls" workbook in the
references list.


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Eva Shanley" wrote in message ...
I need to add a new sheet to a file every week; that new
sheet name becomes Wk 39, the previous sheet was Wk 38,
for all 52 weeks. Is there a way to automatically label
the new sheet to the new week number? I've been trying to
come up with code to do this for awhile, but I'll admit
defeat at this point. Thanks!