Reply to thread

Message: [QUOTE="Joel, post: 6353702"] the code will create a new workbook and copy the old sheet into new sheet and the macro will not be copied. from ChDir strSourceFolder ActiveWorkbook.SaveAs Filename:= _ strSourceFolder & "\TESTShip.xls", _ FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False to ChDir strSourceFolder First = true for each sht in activeworkbook.sheets if First = true then 'copy sheet into new workbook sht.copy set newbk = activeworkbook First = false else sht.copy after:=newbk.sheets(newbk.sheets.count) end if next sht ActiveWorkbook.SaveAs Filename:= _ strSourceFolder & "\TESTShip.xls", _ FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False [/QUOTE]