How do I add 'Checked' option to menu Item

[mhague]

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]

Never mind - figured it out:

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