Merge PDF Question

Thoughts as to why this is giving an error "Run-time error '438' Object doesn't support this property or method"  The debugger says the error is on "AcroExch.App").


Thx

CWJ

---------------------
Sub Merge_PDF()

        Dim AcroExchApp As Acrobat.CAcroApp
        Dim AcroExchPDDoc As Acrobat.CAcroPDDoc
        Dim AcroExchInsertPDDoc As Acrobat.CAcroPDDoc
        Dim strFileName As String, strPath As String
        Dim iNumberOfPagesToInsert As Integer
        Dim iLastPage As Integer

        Set AcroExchApp = CreateObject("AcroExch.App")
        Set AcroExchPDDoc = CreateObject("AcroExch.PDDoc")

        AcroExchApp = CreateObject("AcroExch.App")
        AcroExchPPDoc = CreateObject("AcroExch.PDDoc")
       
        AcroExchApp.Show
       
        strFileName = "C:\1.pdf"
        AcroExchPDDoc.Open (strFileName)

        iLastPage = AcroExchPDDoc.GetNumPages() - 1
       
        AcroExchInsertPDDoc = CreateObject("AcroExch.PDDoc")
        AcroExchInsertPDDoc.Open ("C:\2.pdf")
        iNumberOfPagesToInsert = AcroExchInsertPDDoc.GetNumPages

        AcroExchPDDoc.InsertPages iLastPage - 1, AcroExchInsertPDDoc, 0, iNumberOfPagesToInsert, True
       
        AcroExchInsertPDDoc.Close

        AcroExchPDDoc.Save PDDocRequiresFullSave, "C:\merged.pdf"

        AcroExchPDDoc.Close
        AcroExchApp.Exit
   
        AcroExchInsertPDDoc = Nothing
        AcroExchPDDoc = Nothing
        AcroExchApp = Nothing


End Sub
---------------------