"Keith Wilby" wrote in message
...
How do I select the new sheet in order to rename it "823"?

Doesn't matter. This is how I've done it:

objSht.Copy After:=Sheets(strLastWeek)
strLastWeek = strLastWeek & " (2)"
Set objSht = objWkb.Worksheets(strLastWeek)
objSht.Name = strWeekNo

Is there a more elegant way?

Thanks.

Keith.