Замена листа в книге Excel листом из другой книги - VB

Формулировка задачи:

Здравствуйте. Появилась такая задача. Из БД SQL+Access сформировать отчет по проекту и выгрузить его в готовый шаблон Excel Шаблон этого отчета представляет собой книгу из 4-х листов, одним из которых является график по проекту("Объектный график"). Все графики лежат в отдельной книге, из которой и надо перетащить лист с графиком выбранного проекта в отчет. Все данные из БД я выгружаю запросами и пишу в этот шаблон по клику на кнопку формы. В этой форме из БД вывожу номер графика по выбранному проекту - поле

NumSched

. Сделал код для копирования графика в отчет:

Dim report, Schedule As Object""
Set report = CreateObject("Excel.Application")
Set Schedule = CreateObject("Excel.Application")
Set ScheduleWB = report.Workbooks.Open(report.GetOpenFilename(, , "Выберите файл с графиком"))' книга с графиками
Set reportWB = report.Workbooks.Open(report.GetOpenFilename(, , "Выберите шаблон для отчета"))'книга для выгрузки отчета
Set ReportWs = reportWB.Worksheets(1)
Set ReportWsDetail = reportWB.Worksheets(4)
If Me.NumSched <> "" Then 'Вставка графика в отчет
report.DisplayAlerts = False
reportWB.Sheets("Объектный график").Delete 'удаляю предыдущий график из отчета
report.DisplayAlerts = True
ScheduleWB.Sheets(Me.NumSched.Value).Copy before:=reportWB.Sheets(4) 'копирую график в отчет из файла графиков
End If

График мне нужно вставить перед 4-м листом. При выполнении кода старый график из шаблона удаляется, но вот новый не копируется изкниги графиков...что не так делаю? помогите пожалуйста

Решение задачи: «Замена листа в книге Excel листом из другой книги»

textual
                            Листинг программы 
                        
                            ?ScheduleWB.Sheets(Me.NumSched.Value).Name
?reportWB.Sheets(4).Name