the only way i can think to accomplish that is to have a worksheet
button that they can push any time they want to.......... and you'd
have to have a boolean value set up in draw_graph so that print_graph
won't run if draw_graph hasn't already run in that instance. the
boolean variable would have to be dimmed outside the procedures & be
public.
the button i think you're already doing with

With cbcCutomMenu.Controls.Add(Type:=msoControlButton)

your users can't have everything, don't they know that? ha ha
good luck!
susan



On Jul 31, 4:20*pm, Ruchir wrote:
Thanks, Susan!

That would partially solve the problem. However, if the user clicks
'no' at first go and wants to print the graphs later, then he will
have no option to do that. Basically, what I am trying to find out is:
Is it possible to activate the print_graph macro only after the user
clicks on draw_graph macro? If we do that, then the user can anytime
print the graphs later, not just on the message prompt.

Please let me know if you have any ideas. Looking forward..

Best,
-Ruchir

On Jul 31, 3:13 pm, Susan wrote:



at the end of your first macro, try

if msgbox ("Do you want to print the graphs?",vbyesno)=vbyes then
call print_graphs
else
exit sub

:)
susan

On Jul 31, 3:34 pm, Ruchir wrote:

Thanks for the prompt reply! I thought of doing that. However, if we
do that, the print_graphs macro will always run. I have to leave it to
the user whether he wants to run the print_graphs macro or not.

Here is what I am currently doing:

* * Application.CommandBars("Worksheet Menu Bar")
* * *Set cbcCutomMenu = _
* * * * *cbMainMenuBar.Controls.Add(Type:=msoControlPopup)

* * * * *cbcCutomMenu.Caption = "Run &Macro"

* * *With cbcCutomMenu.Controls.Add(Type:=msoControlButton)
* * * * * * * * * * .Caption = "Draw Graphs"
* * * * * * * * * * .FaceId = 418
* * * * * * * * * * .OnAction = "Draw_Graphs"
* * *End With

* * *With cbcCutomMenu.Controls.Add(Type:=msoControlButton)
* * * * * * * * * * .Caption = "Print Graphs"
* * * * * * * * * * .FaceId = 410
* * * * * * * * * * .OnAction = "Print_Graphs"
* * *End With

Thanks. Look forward..

Best!
-Ruchir

On Jul 31, 2:26 pm, ytayta555 wrote:

Try to write to the and of first code , the Call procedure *:

Call (name of your second macro)
End Sub

Maybe this help- Hide quoted text -

- Show quoted text -- Hide quoted text -

- Show quoted text -