I tried your macro and it seems to run Ok except ---it copies sheet1 to Sheet1(1) then it deletes Sheet1(1) because it is notcalled "Sheet1" so the copy exercise seems a bit pointless.You end up with only the original sheet1 in the workbook.