矢印の部分で、頻繁にエラーが出ます。

実行時エラー　2147417851
オートメーションエラー。
サーバーによって例外が返されました。

というメッセージが現れます。
１度目でエラーが起こることはありませんが、
２度目以降に、高確率でエラーがでるので使い物になりません。

対応する方法はあるのでしょうか？

 
Sub Displayimage()

    Dim objAcroApp As New Acrobat.AcroApp
    Dim objAcroPDDoc As New Acrobat.AcroPDDoc
    Dim lRet As Long '戻り値

      '開いているPDFドキュメントを全て閉じる
      lRet = objAcroApp.CloseAllDocs
      'アプリケーションの終了
      lRet = objAcroApp.Hide
      lRet = objAcroApp.Exit

      'オブジェクトの強制開放
      Set objAcroPDDoc = Nothing
      Set objAcroApp = Nothing

    With Sheets("呼び出し")
      yname = Environ("UserProfile") 'ユーザー名を取得
      x = .Cells(1, 10) '決算月
      lc = .Cells(Rows.Count, 1).End(xlUp).Row
      i = .Cells(1, 8)
      i = i + 1
      dat = .Cells(i, 1) '対象年月日
      y = Month(dat)
      If y >= (x + 1) Mod 12 Then
         fyear = Year(dat) '対象年度
        Else
           fyear = Year(dat) - 1 '対象年度
       End If
      
      n = .Cells(i, 4)

      ' Acrobat10以降は全て共通
      'Const Fn = yname & "\Desktop\" & n
      Fn = yname & "\Desktop\電子帳簿保存法\" & fyear & "\支払分\" & n
      Debug.Print Fn
      
      If Dir(Fn) <> "" Then

      'Acrobatを起動表示する
      lRet = objAcroApp.Show
      lRet = objAcroPDDoc.Open(Fn)
      'PDFドキュメントを画面表示する
      objAcroPDDoc.OpenAVDoc Fn ←ここで、頻繫にエラー
      End If

      .Cells(1, 8) = i
    End With
    
End Sub