Menu contextual con el boton izquierdo

hola [de nuevo], Fabian !

[fe de erratas por 'exceso' de copy/paste] :D

3) para que 'aparezca' [segun el evento al que necesites asignar dicha 'aparicion']...
solo necesitas una instruccion similar al ejemplo anterior que expusiste... [p.e.]
-> Application.CommandBars("Comandos Estadística").ShowPopup <-
[siempre y cuando al 'crear' la barra la definas como del tipo 'msoBarPopup'] <= OJO
-> p.e. en el evento: Private Sub ListBox1_MouseUp(... ... ...

saludos,
hector.

Me faltaba una linea de codigo y fallaba por eso. Pero me encontre con otro
problema, pongo el codigo en ThisWorkbook y falla, tambien lo probe con
Auto_Open (modulo) y alli no falla, (lo necesito en This Workbook) te
transcribo el codigo!
Private Sub workbook_open()
Set BorrarBuscar = CommandBars.Add( _
Name:="MiMenu", Position:=msoBarPopup, _
Temporary:=True)
Set BorrarB = BorrarBuscar.Controls.Add
With BorrarB
.Caption = "Borrar Listado"
.OnAction = "Borrar"
End With
Set BuscarB = BorrarBuscar.Controls.Add
With BuscarB
.Caption = "Buscar Linea Seleccionada"
.OnAction = "Buscar"
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("MiMenu").Delete
End Sub

El error es en la primer linea error '91'

Disculpame, Gracias tu invaluable ayuda!!!
"Fabian" escribió en el mensaje
news:

Me faltaba una linea de codigo y fallaba por eso. Pero me encontre con

otro

problema, pongo el codigo en ThisWorkbook y falla, tambien lo probe con
Auto_Open (modulo) y alli no falla, (lo necesito en This Workbook) te
transcribo el codigo!
Private Sub workbook_open()
Set BorrarBuscar = CommandBars.Add( _
Name:="MiMenu", Position:=msoBarPopup, _
Temporary:=True)
Set BorrarB = BorrarBuscar.Controls.Add
With BorrarB
.Caption = "Borrar Listado"
.OnAction = "Borrar"
End With
Set BuscarB = BorrarBuscar.Controls.Add
With BuscarB
.Caption = "Buscar Linea Seleccionada"
.OnAction = "Buscar"
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("MiMenu").Delete
End Sub

El error es en la primer linea error '91'