Hello I am running the below code - I am getting error , "Run time error -21446759(80004005) Method 'open' of Object 'Presentations' Failed

Private Function openPowerPointPresentationFromURL(filePath As String, fileName As String) As PowerPoint.Presentation

Dim ppProgram As PowerPoint.Application
Dim ppCount As Integer
Dim i As Integer

On Error GoTo ErrHandler

' Open the file
ThisWorkbook.FollowHyperlink (filePath)

' Set the object by looping through all open PPT files and look for the passed file name
Set ppProgram = GetObject(, "PowerPoint.Application")
ppCount = ppProgram.Presentations.Count
For i = 1 To ppCount + 1
If ppProgram.Presentations.Item(i).Name = fileName Then
Set openPowerPointPresentationFromURL = ppProgram.Presentations.Item(i)
Exit Function
End If
Next i
On Error GoTo 0

ErrHandler:
MsgBox "There was an error opening the PowerPoint template that is required for this report."
On Error GoTo 0

End Function

Sub OpenPowerPointFile()
Dim objPPT As PowerPoint.Application
Dim objPres As Object
Set objPPT = CreateObject("Powerpoint.Application")
objPPT.Visible = True

Set objPres = objPPT.Presentations.Open("File path")

End Sub