Crerating a temporary menu button
 

Lionel,

Put this cose in the ThisWorkbook module

Sub Auto_Close()
On Error Resume Next
' in case there isn't a bar to delete
Application.CommandBars("worksheet menu bar").Delete
End Sub

It's also a good idea to have
Application.CommandBars("worksheet menu bar").Delete
at the beginning of the code that creats the bar in the first place.
(Just in case a version already exists).

steve

"Lionel Fridjhon" wrote in message
...
am trying to create a menu button that is deleted when
the workbook is closed.

I have the following piece of code that puts the button
in place, but it remains in the worksheet toolbar when I
close:

Set ComBar = CommandBars("worksheet menu bar")
With ComBar
.Controls.Add(Type:=msoControlButton,
temporary:=True, befo=6).Caption = "&Process CLiMET"
.Controls("Process CLiMET").Style =
msoButtonCaption
.Controls("PROCESS CLIMET").OnAction
= "SelectFolderToProcess"
End With

Can anyone help?

Lionel