''' *************************************************************************
''' Class Event Procedures Follow
''' *************************************************************************
Private Sub Class_Initialize()
Set mctlToolsMenu = Application.VBE.[COLOR=Red]CommandBars[/COLOR](1).FindControl(, 30007)
mszOnAction = ThisWorkbook.Name & gszBANG & gszENTRY_POINT
AddMenuItem
End Sub