Mohammed

>&&i need to insert at the new excle sheet (test),just what i select from am2.
>&& any way to insert as my select ex...
>first sheet have only"ADSL 1"
>second sheet have "B ISDN ")
>therd sheet have "LL" , or i must do that manyaly

You can easily run part of the code in a loop and use either a SELECT ... WHERE or a SET FILTER to get your three subsets of data

You can work with alternate sheets of the workbook with code like this:

? loWorkbook.Sheets.Count && examine how many sheets the workbook contains

loSheet = loWorkbook.Sheets(2) && pick the second sheet

loWorkbook.Sheets.Add() && add a new sheet to the Sheets collection

>&& and via getdir () inside the code ,i can choice the place to save this excel book with new name.

capture the result of getdir() to a variable and use it in the call to the Close() method.