Сохранить имя файла PPT, где значение из столбца Excel

Question

Я пытаюсь создать макрос VBA, в котором вы можете сохранить каждый слайд с разными именами файлов, значение каждого имени файла будет получено из указанного c столбца файла Excel. Вот код, который я пробовал до сих пор ..

Dim oWB As Object
Dim oXL As Object
Dim xlWS As Object
Dim strFile As String
Dim FName As String
Dim xlColumn As String
Dim getName As String
Dim r As Long
Dim m As Long

' Open Excel File
Set oXL = CreateObject("Excel.Application")
strFile = oXL.GetOpenFilename("Excel Worksheets (*.xlsx),*.xlsx", , "Select Excel file")
If strFile = "False" Then
    Beep
    Exit Sub
End If
On Error Resume Next
Set oWB = GetObject(Class:="Excel.Application")
If oWB Is Nothing Then
    Set oWB = CreateObject(Class:="Excel.Application")
    If oWB Is Nothing Then
        Beep
        Exit Sub
    End If
End If
On Error GoTo 0 ' ErrHandler
oWB.Visible = msoCTrue

xlColumn = CStr(InputBox("What Column of Worksheet?", "Column Designation"))

Set xlWS = oWB.Workbook.Open(strFile, , , msoFalse)
m = oWB.Range("A" & Rows.Count).End(xlUp).Row
For r = m To 2 Step -1
    FName = oWB.worksheets("Sheet1").Range(xlColumn & r).Value
Next r

Во время выполнения макроса я получаю сообщение об ошибке: Ошибка приложения или объекта *

Set xlWS = oWB.worksheets.Open(strFile, , , msoFalse)