if you code is as it is shown in your email, you need to modify it to look
like this:

With Application.CommandBars(1).Controls.Add(msoControl Popup)
.Caption = "Agent"
.OnAction = "Show_frmSearch" 'TODO: show search agent
End With

--
Regards,
Tom Ogilvy

"d_rodman " wrote in message
...
Hello,
I am trying to make my userform "frmSearch" able to be fired up from
the regular menu. It is loaded right away, but the user needs to be
able to close it and reopen whenever they need it. My code creates the
Menu item, but when I click on it, it does nothing. I have inserted my
code below. I need help by the "TODO: show search agentThanks in
advance, I appreciate any help.

In "This Workbook:"
Private Sub Workbook_Open()
frmSearch.Show

Dim con

For Each con In Application.CommandBars(1).Controls
If con.Caption = "Agent" Then
con.Delete
End If
Next

With Application.CommandBars(1).Controls.Add(msoControl Popup)
Caption = "Agent"
OnAction = "Show_frmSearch" 'TODO: show search agent
End With

In a module:
Public Sub Show_frmSearch()
frmSearch.Show
End Sub


---
Message posted from http://www.ExcelForum.com/