Each object specifies the maximum number of simultaneous recipients to which it can fire events. This error has the following causes and solutions:
You can't use Set for a WithEvents variable because the number of recipients allowed for these events.
For additional information, select the item in question and press F1 (in Windows) or HELP (on the Macintosh).