Доброго дня.    
Подскажите, пож-та, как откорректировать макрос, чтобы данные подтягивались в конктный (заданный) лист.    
 
Есть макрос:  
Sub Billing()  
   Dim FilesToOpen  
   Dim x As Integer  
   On Error GoTo ErrHandler  
   Application.ScreenUpdating = False  
   FilesToOpen = Application.GetOpenFilename _  
                 (FileFilter:="Microsoft Excel Files (*.xlsx), *.xlsx", _  
                  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(1).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  
 
Необходимо прописать путь (в данном макросе), чтобы данные вставлялись именно в лист, которому присвоено имя, например "Биллинг".  
Сейчас это работает таким образом, что данные вставляются в следующий рабочий лист, а нужно именно в определенный заданный лист.

Здравствуйте! Кто-нибудь может знает, можно ли на листе с диаграммой вставить объект со ссылкой на значение другого листа? Нужно, чтобы, в центре графика было число, которое будет автоматически меняться при его изменении на исходном листе