将类应用于多个图表对象 - VBA

I created a Class Module that captures click events on Chart Objects. It works as expected for one chart, but when I have multiple charts, only the last chart created maintains the functionality of the chart class. Below is the code I am using to apply the Chart Class to each chart object.I created a Class Module that captures click ev