Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

addins showing up strange on excel 2007

Status
Not open for further replies.

sahmiele

Technical User
Sep 9, 2003
67
US
I have the code below, which in xp is creating a new menu bar with items to click which will run the macros assinged. When this is opened in excel 2007, the addins tab has the "Order Entry Program" dropdown menu with all of the items in it, and also all of the items on the addin tab. Is there a way to modify the code so I can have just the "Order Entry Program" dropdown menu show up and not the other items on the addins tab?

Thanks.








With MenuBars("Worksheet")
.Reset
.Menus.Add ("&Order Entry Program")
With .Menus("&Order Entry Program")
.MenuItems.Add ("New Customer Order"), "'order entry setup.xls'!New_Customer_Order"
.MenuItems.Add ("New Future Order"), "'order entry setup.xls'!New_Future_Order"
.MenuItems.Add ("New Show Ticket Order"), "'order entry setup.xls'!New_Show_Ticket_Order"
.MenuItems.Add ("New Equipment Order"), "'order entry setup.xls'!New_Equipment_Order"
.MenuItems.Add ("-")
.MenuItems.Add ("Add New Skus"), "'order entry setup.xls'!Add_New_Skus"
.MenuItems.Add ("Type New Sku"), "'order entry setup.xls'!Type_New_Sku"
.MenuItems.Add ("Add Highlighted Skus to Template"), "'order entry setup.xls'!Add_Highlighted_Skus_to_TEMPLATE"
.MenuItems.Add ("-")
.MenuItems.Add ("Save Order For Email"), "'order entry setup.xls'!Save_Order_For_Email"
.MenuItems.Add ("Update Logged Order"), "'order entry setup.xls'!Update_Logged_Order"
.MenuItems.Add ("Delete Logged Order"), "'order entry setup.xls'!Delete_Logged_Order"
.MenuItems.Add ("-")
.MenuItems.Add ("Reset Orders File"), "'order entry setup.xls'!Reset_Orders_File"
.MenuItems.Add ("Old Order Tab Cleanup"), "'order entry setup.xls'!Old_Order_Tab_Cleanup"
.MenuItems.Add ("Create New Customer"), "'order entry setup.xls'!Create_New_Customer"
End With
End With
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top