Menu contextual con el boton izquierdo

Encontre algo, para explicarlo mejor:
Set copyAndPasteMenu = CommandBars.Add( _
Name:="Custom", Position:=msoBarPopup, _
Temporary:=True)
Set copy = copyAndPasteMenu.Controls.Add
With copy
.FaceId = CommandBars("Standard").Controls("Copy").Id
.Caption = "Copy the selection"
End With
Set paste = copyAndPasteMenu.Controls.Add
With paste
.FaceId = CommandBars("Standard").Controls("Paste").Id
.Caption = "Paste from the Clipboard"
End With
copyAndPasteMenu.ShowPopup 200, 200

Con respecto a este codigo tengo algunas preguntas, despues de ejecutarlo no
se puede vover a ejecutar!!!???
Como hago para borrar el nombre?, como hago para volver a ver el menu si
solo lo puedo ejecutar una sola vez y luego da error, a menos que le cambie
el nombre?, como puedo hacer para asignarle una macro a cada sub menu tal
como lo hace excel con el contextual de las hojas?
Set copyAndPasteMenu = CommandBars.Add( _
Name:="MiMenu", Position:=msoBarPopup,¿[ MenuBar]?,Temporary:=True)
.Caption="Macro1"
.Caption="Macro2"