ppt open의 vba질문사항

Sub ReplacepptText() '제가 만든 VBA 예시입니다만...
 
Dim ppPreso As PowerPoint.Presentation
    Dim oSld As Slide
    Dim oShp As Shape
    Dim oTxtRng As TextRange
    Dim oTmpRng As TextRange
    Dim spath As String
    Dim F_rng As Range
    Dim R_rng As Range
 
Set F_rng = ThisWorkbook.Sheets(1).Range("a2:a190")
Set R_rng = ThisWorkbook.Sheets(1).Range("b2:b190")
 
Application.FileDialog(msoFileDialogFilePicker).Show
spath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
ActiveSheet.Range("n1").Value = spath
'파일선택창을 열어 경로를 spath로 지정
 
Set ppPreso = Presentations.Open(spath)
'spath의 경로로 ppt를 열기인데 여기서 에러가 뜨네요