...ActiveX component can't create object.
I got this code from DevX which is
spozed to open some kind of form
within the spreadsheet that allows editing
of really complex IF statements.
Only it doesn't work, generating a run time error '429'
This is where the error occurs:

Set parser = New FormulaAnalyser

The Class module code is below.

After I loaded the add-in,
I did reference the "FormulaParser.tlb"
but didn't help.
Everytime I restart Excel, I have to
re-point to "FormulaParser.tlb",
and it doesn't work anyway.

No one has yet posted on DevX that
the add-in doesn't work, but it
definately doesn't work for me.


Option Explicit
Private Const FORMULA_MENU_NAME = "Format Formula"
Public WithEvents app As Application

Private Sub App_SheetBeforeRightClick(ByVal Sh As Object, _
& ByVal Target As Range, Cancel As Boolean)
Dim bRet As Boolean
If Target.HasFormula Then
If Target.HasArray Then
Debug.Print "Array formula"
End If
If InStr(1, Target.formula, "if(", vbTextCompare) 0 Then
Application.CommandBars("Cell").Controls(FORMULA_M ENU_NAME).Enabled
= True
Else
Application.CommandBars("Cell").Controls(FORMULA_M ENU_NAME).Enabled
= False
End If
Else
Application.CommandBars("Cell").Controls(FORMULA_M ENU_NAME).Enabled =
False
End If
End Sub

Private Sub Class_Initialize()
Dim c As CommandBarControl
On Error Resume Next
Application.CommandBars("Cell").Controls(FORMULA_M ENU_NAME).Delete
On Error GoTo 0
Set c = Application.CommandBars("Cell").Controls.Add
c.Caption = FORMULA_MENU_NAME
c.OnAction = "showFormula"
End Sub

Private Sub Class_Terminate()
On Error Resume Next
Application.CommandBars("Cell").Controls(FORMULA_M ENU_NAME).Delete
End Sub