Создание PPT из двух разных файлов Excel в VBA

Question

Я пытаюсь открыть файл Excel, взять диапазоны в виде изображения и создать ppt нашего файла.Я не уверен, что происходит в коде ниже.Может кто-нибудь помочь, пожалуйста?Код работает хорошо для всех других слайдов, поступающих из другого файла Excel.В тот момент, когда я открываю файл Excel и переключаюсь, он выдает «ошибка индекса вне диапазона»

Sub GlobalBankPPT()
 Dim ppApp As PowerPoint.Application
 Dim ppPres As PowerPoint.Presentation
 Dim ppSlide As PowerPoint.Slide
 Dim ppShape As PowerPoint.Shape
 Dim ppPic As Variant
 Dim j As Integer
 Dim wkb As Workbook
 Dim sh As Worksheet
 Dim WS_Count As Integer, i As Integer
 Dim mypp As New ExcelToPPt.cPPt

 mypp.InitFromTemplate MyTemplateppt:=mytemp, MyOutputppt:=""

 Set ppApp = GetObject(, "PowerPoint.Application")
 ppApp.Visible = msoTrue
 Set ppPres = ppApp.ActivePresentation


Set wkb = Workbooks.Open(Filename:=ThisWorkbook.Worksheets("Index").Range   ("FilePath"))
wkb.Activate

WS_Count = wkb.Worksheets.Count

For i = 1 To WS_Count
    If Worksheets(i).Name = "Industry" Then
        wkb.Activate
        Set sh = ActiveSheet
        Exit For

 End If
Next I

'--------------------------------------------------------------------Slide7
 Range(Sheet15.Range("A150"), Sheet15.Range("Q191")).Select
 Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
 ppPres.Slides(7).Select
 Set ppPic = ppPres.Slides(7).Shapes.Paste

 ppPic.Select
 ppPic.Top = 70.24
 ppPic.Width = 10.5 * 100
 ppPic.Height = ppPic.Width / 3.4
 ppPic.Left = 50

end sub