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.