How do I add 'Checked' option to menu Item

mhague · Mar 21st, 2002, 10:36 AM

I have this code below which creates a custom menu in my Excel sheet. How do I make the Menu Item 'Checked' when the user selects it?
Thx - Marcie

MenuBars(xlWorksheet).Menus.Add "&General Ledger", "&Window"
With MenuBars(xlWorksheet).Menus("General Ledger").MenuItems
.Add "&All Departments ", OnAction:="AllDepartments"
End With

mhague · Mar 21st, 2002, 11:04 AM

Never mind - figured it out:

MenuBars(xlWorksheet).Menus("General Ledger").MenuItems("Set EOY Flag").Checked = True

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 21st, 2002, 10:36 AM	#1
mhague New Member Join Date: Mar 2002 Location: mhague Posts: 14	I have this code below which creates a custom menu in my Excel sheet. How do I make the Menu Item 'Checked' when the user selects it? Thx - Marcie MenuBars(xlWorksheet).Menus.Add "&General Ledger", "&Window" With MenuBars(xlWorksheet).Menus("General Ledger").MenuItems .Add "&All Departments ", OnAction:="AllDepartments" End With

Mar 21st, 2002, 11:04 AM	#2
mhague New Member Join Date: Mar 2002 Location: mhague Posts: 14	Never mind - figured it out: MenuBars(xlWorksheet).Menus("General Ledger").MenuItems("Set EOY Flag").Checked = True