Hi Pete,

Am Mon, 14 May 2012 13:53:15 +0000 schrieb pete212:

Sheets.Add After:=Sheets(Sheets.Count)
Sheets("Sheet2").Select
Sheets("Sheet2").Name = "Pete"

the new sheet is the active sheet. Try:
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Pete"

Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2