Duncan,

Try something like the following:

Dim N As Long
With ThisWorkbook.Worksheets
For N = .Count To 1 Step -1
.Item(N).Name = "Week" & Format(N + 1)
Next N
.Add(befo=.Item(1)).Name = "Week1"
End With


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Duncan J" wrote in message
...
I've got Tabs like week1 week 2 week3 week4
Next week I'll have to rename week4 to week5 and week3 to week
4 and so on, then insert a new and name it week1.
Any ideas?
Thanks all,
DJ