VBA-Make Custom Menu Item Fire

D

d_rodman

Hello,
I am trying to make my userform "frmSearch" able to be fired up fro
the regular menu. It is loaded right away, but the user needs to b
able to close it and reopen whenever they need it. My code creates th
Menu item, but when I click on it, it does nothing. I have inserted m
code below. I need help by the "TODO: show search agentThanks i
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(msoControlPopup)
.Caption = "Agent"
.OnAction = "Show_frmSearch" 'TODO: show search agent
End With

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

Tom Ogilvy

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(msoControlPopup)
.Caption = "Agent"
.OnAction = "Show_frmSearch" 'TODO: show search agent
End With
 
D

d_rodman

Whoops my bad, I actually had it correct in my code. Lost the "." i
the cut and paste transistion. Sorr
 
T

Tom Ogilvy

Your code worked fine for me.

I didn't create the button in the workbook_open event, but using a normal
module worked and since you use Application.Commandbars in the Open event,
it should work. Also, you said the button is getting created successfully,
so I assume it is working.

I assume the Show macro is in the same workbook.
 
Top