Context menu item does not call subroutine?

Hello,

I have found this article that explains how to create a context menu when one right clicks a cell:

http://sitestory.dk/excel_vba/popup-menu-eng.htm

So I attempted to do just one item and here is what I entered in VBA:

Please Login or Register  to view this content.

Although the context menu appears, it appears with 7 items instead of one and when I click on the menu item, the dummy function does not get called???

Does anyone know what I am doing wrong?

Thanks all for your help
Rn