помогите, пож-та, кто-нибудь!!!

{quote}{login=nerv}{date=20.07.2011 10:45}{thema=}{post}объяснить попробую, но не уверен, что у меня это получится : )  
 
Private Sub CommandButton1_Click()  
'Процедура обработки события "клика"  
 
Dim q&, vR, objSheet As Object  
'Объявление переменных:  
'q - Long, от –2147483648 до 214748364  
'vR - Variant, принимает значение любого из простых типов  
'objSheet - Object, ссылка на объект  
 
'ThisWorkbook.RefreshAll  
'Эта книга.Обновить связи  
 
Range([A2], Cells([B2].End(xlDown).Row, 21)).ClearContents
'Диапазон(А2, Ячейка(ВнизОт[B2]ДоПоследнейЯчейкиСДанными.Строка, столбец №21)).Очистить значения
 
q = 2 ' Номер строки  
[A2] = 1 'Число, от кот. Excel начнет строить прогрессию
For Each objSheet In Worksheets 'По листам книги  
   With objSheet ' С листом книги  
       If Not objSheet Is ActiveSheet Then ' Все листы кроме текущего  
           vR = .Range(.[B2], .Cells(.[B1].End(xlDown).Row, 21)).Value
' Получить массив данных. Изменилась эта строка [B1] вместо [B2]
           Range("B" & q).Resize(UBound(vR, 1), 20) = vR  
' Записать его на лист  
           q = q + UBound(vR, 1)  
' Скорректировать позицию строки  
       End If  
   End With  
Next  
Range([A2], Cells(q - 1, 1)).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1 ' Построить прогрессию
End Sub{/post}{/quote}

Доброго дня.    
Подскажите, пож-та, как откорректировать макрос, чтобы данные подтягивались в конктный (заданный) лист.    
 
Есть макрос:  
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  
 
Необходимо прописать путь (в данном макросе), чтобы данные вставлялись именно в лист, которому присвоено имя, например "Биллинг".  
Сейчас это работает таким образом, что данные вставляются в следующий рабочий лист, а нужно именно в определенный заданный лист.

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

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