thanks I tried that but and had a lot of problem because to delete it
is better to copy the file in another place and after delete. but I
result my problem like this

Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Copy
ActiveWorkbook.SaveAs Filename: ... this copy only the result in
the sheet but not the code.

Ina