Event does not exist

The event that you specified in an On Event statement is not defined for the specified product object. For example, suppose that ProdADT is a product object for which NotAnEvent is not a defined event:

Sub MySub(Source As ProdADT)
End Sub
Set prodObjRef = New ProdADT("astring")
On Event NotAnEvent From prodObjRef Call MySub	' Illegal.

Remove the On Event statement or specify an event defined for the object.