Error 429 Active X component can’t create object

Hello,

I’m using MS Office 2010. I’m trying to use a Powerpoint module in my Excel but it gives me several errors. What I’m trying to do is embed the Powerpoint module on one sheet of the Excel, the content of the Powerpoint such as company name will be replaced depending on the contents of an excel range.

I’m getting “Error 429 Active X component can’t create object“. Is this related with my presentation being active or this is already a DLL file error?

Please advise me.

Sub changeme(sFindMe As String, sSwapme As String)
Dim osld As Slide
Dim oshp As Shape
Dim otemp As TextRange
Dim otext As TextRange
Dim Inewstart As Integer
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
    If oshp.HasTextFrame Then
        If oshp.TextFrame.HasText Then
            Set otext = oshp.TextFrame.TextRange
            Set otemp = otext.Replace(sFindMe, sSwapme, , msoFalse, msoFalse)
            Do While Not otemp Is Nothing
                Inewstart = otemp.Start + otemp.Length
                Set otemp = otext.Replace(sFindMe, sSwapme, Inewstart, msoFalse, msoFalse)
            Loop
        End If
    End If

Next oshp
Next osld
End Sub
 '————————————————————————-
Sub swap()

Dim sFindMe As String
Dim sSwapme As String
Dim ppApp As PowerPoint.Application
Dim ppPreso As PowerPoint.Presentation
 'Start Powerpoint
 'Look for existing instance
On Error Resume Next
Set ppApp = GetObject(, "PowerPoint.Application")
On Error Goto 0
 'Create new instance if no instance exists
Set ppApp = CreateObject("Powerpoint.Application")
 'Open Template in word
With Sheets("Sheet1").Shapes("Object 1").OLEFormat.Verb(Verb:=xlVerbOpen)
End With
 'Make it visible
ppApp.Visible = True
sFindMe = "Name To Find"
 'change this to suit
sSwapme = "New Name"
Call changeme(sFindMe, sSwapme)
 'sFindMe = "<find2>"
 'sSwapme = ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange
 'Call changeme(sFindMe, sSwapme)
End Sub