You haven't used the code in the workbook_open event to install the menu, nor the code in the Before_Close event to delete the menu.
I'll add a toolbar example.
Not really part of the question, but looking at your main code I would suggest you take a little time to "clean" it up. You can remove all those small scrolls to start.
Bookmarks