sarah was telling us:
sarah nous racontait que :

Here, you add a menu, and then right away try to delete it.... ?
Also, you are trying to delete a control by defining a popup menu (You
define clarpop a popup menu, but then try to use that variable to cycle
through controls.

Are you trying to add a menu or a control? With your code, you are adding a
menu that will never be accessible because as soon as you put the focus on
it, the MenuAction macro is launched.

Try this instead:

'_______________________________________
Sub Test()

Dim MyCtrl As CommandBarControl
Dim ShortCutMenu As CommandBar

Set ShortCutMenu = CommandBars("Text")

For Each MyCtrl In ShortCutMenu.Controls
   If MyCtrl.Tag = "Litriu" Then
       MyCtrl.Delete
       Exit For
   End If
Next

Set MyCtrl = ShortCutMenu.Controls.Add(Type:=msoControlButton)

With MyCtrl
       .Tag = "Litriu"
       .Caption = "&Litri?"
       .OnAction = "MenuAction"
End With

End Sub
'_______________________________________

'_______________________________________
Sub MenuAction()

MsgBox """Litri?"" was clicked on!", vbInformation, "Success!"

End Sub
'_______________________________________

Finally, are you sure you want to add this control to Normal.dot?
If not, look up the
   CustomizationContext
property in the VBA on-line help.