forgot

End If
after
exit sub

susan


On Jul 31, 4: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 -