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
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