Automatically rename multiple worksheets

[n2nuk]

Hi there,

Its end of the financial year and I need to update a template that we use to record project work that is undertaken on a weekly basis.

The excel spreadsheet is made up of 52 worksheets, one for each week. Each worksheet is named after the week for example 'w.c 03.04.06', 'w.c 10.04.06' and so on.

I have copied the spreadsheet and now need to rename the worksheet names for this financial year, is there anyway I can do this using VB or a macro?

Many thanks

Naz

 

[PHV]

Something like this (in the debug window)?
For w=1 To 52: Worksheets(w).Name="w.c " & Format(#2007-04-02# + 7*(w-1), "dd.mm.yy"): Next

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886