{quote}{login=Igor67}{date=31.10.2009 05:33}{thema=}{post}Посмотрите в приемах  
http://www.planetaexcel.ru/tip.php?aid=111{/post}{/quote}Вы знаете, меня этот макрос в принципе устраевает, но если говорить о полном удобстве, то можно было бы сделать его так, чтобы он при выборе файла источника открывал сразу папку в которой находится файл в котором этот макрос прописан и новый вставленный лист называл по имени файла из которого он скопирован.  
 
     
Sub CombineWorkbooks()  
   Dim FilesToOpen  
   Dim x As Integer  
   On Error GoTo ErrHandler  
   Application.ScreenUpdating = False  
   FilesToOpen = Application.GetOpenFilename _  
                 (FileFilter:="Microsoft Excel Files (*.xls), *.xls", _  
                  MultiSelect:=True, Title:="Files to Merge")  
   If TypeName(FilesToOpen) = "Boolean" Then  
       MsgBox "Не выбрано ни одного файла!"  
       GoTo ExitHandler  
   End If  
   x = 1  
   While x <= UBound(FilesToOpen)  
       Workbooks.Open Filename:=FilesToOpen(x)  
       Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)  
       x = x + 1  
   Wend  
ExitHandler:  
   Application.ScreenUpdating = True  
   Exit Sub  
ErrHandler:  
   MsgBox Err.Description  
   Resume ExitHandler  
End Sub