Visual Basic para Aplicaciones - menú contextual

hola amigos del foro:
Tengo un problema con el menú contextual, cree en mi página un menú que dice:

'With Worksheets("control").Application.CommandBars("cell").Controls _
'.Add(Type:=msoControlButton, Before:=6, _
'Temporary:=False)
'.Caption = "Eliminar renglon"
'.OnAction = "eliminar renglon"
'.Tag = "brccm"
'End With

la cuestión es cuando salgo de mi programa en excel no solo me manteniendo la función en otros programas de excel sino que en cantidad exagerada. Supuestamente para eliminarlo puse en thisworkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("controlfarmacos").Application.CommandBars("Cell").Controls("Eliminar Farmaco paziente").Visible = False
end sub

les agradezco por la atención saludos.
pablo