Hi I played a little with automation and sheets at the weekend. Here is the result: **//Current last sheet will be deleted at the end of code!** x := xlBook.Worksheets.Count; xlSheet := xlBook.Worksheets.Item(x); IF x > 1 THEN xlSheet.Activate; xlSheet.Name := 'Last'; xlSheet := xlBook.Worksheets.Item(1); xlSheet.Activate; //Fill the sheet i:=1; REPEAT IF (x > 1) OR (i > 1) THEN xlSheet := xlSheet.Next; xlSheet.Activate; IF xlSheet.Name = 'Last' THEN BEGIN xlSheet := xlBook.Worksheets.Add(); xlSheet.Name:= 'New' + FORMAT(i) ; //for testing only xlSheet.Activate; END; // fill the sheets //for testing data xlRange:= xlSheet.Range('A1'); xlRange.Activate; xlRange.Value:= 'New Table' + FORMAT(i); // i:= i +1; UNTIL i = 15; // 15 new sheets x := xlBook.Worksheets.Count; xlSheet := xlBook.Worksheets.Item(x); xlSheet.Activate; xlSheet.Delete; bye André